Hyper Stacks 1994 May

home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / HyperBibTeX097 / HyperBibTeX Utils < prev next >
MacBinary | 1993-05-06 | 300.4 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: HyperBibTeX Utils
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jun 16 07:14:16 1992, modified Thu May 6 12:24:11 1993, creator HyperCard, type HyperCard stack, 196352 bytes "HyperBibTeX Utils" , at 0x2ff80 110993 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 48 79 70 65 72 42 | 69 62 54 65 58 20 55 74 |..HyperB|ibTeX Ut|
|00000010| 69 6c 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ils.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 02 ff 00 00 | 01 b1 91 a6 63 7d 88 a8 |........|....c}..|
|00000060| 0e ec 2b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..+.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ed 59 00 00 |........|.....Y..|
|00000080| 00 00 6e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..n.STAK|........|
|00000090| 00 00 00 0a 00 02 ff 00 | 00 00 6e 00 00 00 00 00 |........|..n.....|
|000000a0| 00 00 00 00 00 00 00 0e | 00 00 0a fa 00 00 00 0e |........|........|
|000000b0| 00 00 0b da 00 00 2a 79 | 00 00 00 00 00 00 00 00 |......*y|........|
|000000c0| 00 00 29 7d 00 00 00 00 | 00 05 00 00 d0 00 00 00 |..)}....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| 1b b0 f6 de 00 00 00 00 | 00 a1 00 30 01 f7 02 30 |........|...0...0|
|00000100| 00 00 00 00 03 66 02 80 | 00 00 00 00 00 00 00 00 |.....f..|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d a6 00 00 0c 9c | 01 56 02 00 00 00 00 00 |........|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000690| b0 b0 b0 b0 b0 b0 0d 48 | 79 70 65 72 42 69 62 54 |.......H|yperBibT|
|000006a0| 65 58 20 55 74 69 6c 69 | 74 69 65 73 0d 56 65 72 |eX Utili|ties.Ver|
|000006b0| 73 69 6f 6e 20 30 2e 39 | 2e 37 0d 33 2d 4d 61 79 |sion 0.9|.7.3-May|
|000006c0| 2d 39 33 0d 0d a9 43 6f | 70 79 72 69 67 68 74 20 |-93...Co|pyright |
|000006d0| 31 39 39 32 2c 20 31 39 | 39 33 20 53 49 4c 2c 20 |1992, 19|93 SIL, |
|000006e0| 49 6e 63 2e 0d 41 6c 6c | 20 52 69 67 68 74 73 20 |Inc..All| Rights |
|000006f0| 52 65 73 65 72 76 65 64 | 2e 0d b0 b0 b0 b0 b0 b0 |Reserved|........|
|00000700| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000710| 0d 0d a5 a5 20 56 61 6c | 69 64 20 45 6e 74 72 79 |.... Val|id Entry|
|00000720| 20 50 61 63 6b 61 67 65 | 0d a5 a5 20 56 65 72 73 | Package|... Vers|
|00000730| 69 6f 6e 20 31 2e 34 20 | 2d 2d 20 46 6f 72 20 75 |ion 1.4 |-- For u|
|00000740| 73 65 20 77 69 74 68 20 | 66 6f 72 20 48 79 70 65 |se with |for Hype|
|00000750| 72 43 61 72 64 20 32 2e | 30 20 61 6e 64 20 6c 61 |rCard 2.|0 and la|
|00000760| 74 65 72 2e 0d a5 a5 20 | 4a 75 6e 65 20 32 36 2c |ter.... |June 26,|
|00000770| 20 31 39 39 31 0d a5 a5 | 20 42 79 20 43 68 72 69 | 1991...| By Chri|
|00000780| 73 20 54 68 6f 72 6d 61 | 6e 2c 20 41 70 70 6c 65 |s Thorma|n, Apple|
|00000790| 20 43 6f 6d 70 75 74 65 | 72 2c 20 49 6e 63 2e 0d | Compute|r, Inc..|
|000007a0| a5 a5 0d a5 a5 20 46 72 | 65 65 20 61 73 20 6c 6f |..... Fr|ee as lo|
|000007b0| 6e 67 20 61 73 20 79 6f | 75 20 6b 65 65 70 20 74 |ng as yo|u keep t|
|000007c0| 68 65 20 66 69 72 73 74 | 20 73 69 78 20 6c 69 6e |he first| six lin|
|000007d0| 65 73 20 6f 66 20 74 68 | 69 73 20 6d 65 73 73 61 |es of th|is messa|
|000007e0| 67 65 20 69 6e 74 61 63 | 74 2e 0d 2d 2d 20 73 6f |ge intac|t..-- so|
|000007f0| 6d 65 20 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 73 |me modif|ications|
|00000800| 20 6d 61 64 65 0d 0d 6f | 6e 20 52 65 6d 6f 76 65 | made..o|n Remove|
|00000810| 42 6c 61 6e 6b 4c 69 6e | 65 73 0d 70 75 74 20 74 |BlankLin|es.put t|
|00000820| 61 72 67 65 74 20 69 6e | 74 6f 20 4d 79 56 61 6c |arget in|to MyVal|
|00000830| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 70 6f 73 0d |.put 1 i|nto pos.|
|00000840| 72 65 70 65 61 74 0d 70 | 75 74 20 66 75 6c 6c 4f |repeat.p|ut fullO|
|00000850| 66 66 73 65 74 28 72 65 | 74 75 72 6e 26 72 65 74 |ffset(re|turn&ret|
|00000860| 75 72 6e 2c 4d 79 56 61 | 6c 2c 70 6f 73 29 20 69 |urn,MyVa|l,pos) i|
|00000870| 6e 74 6f 20 70 6f 73 0d | 69 66 20 70 6f 73 20 3d |nto pos.|if pos =|
|00000880| 20 30 20 74 68 65 6e 20 | 65 78 69 74 20 72 65 70 | 0 then |exit rep|
|00000890| 65 61 74 0d 70 75 74 20 | 72 65 74 75 72 6e 20 69 |eat.put |return i|
|000008a0| 6e 74 6f 20 63 68 61 72 | 20 70 6f 73 20 74 6f 20 |nto char| pos to |
|000008b0| 70 6f 73 20 2b 20 31 20 | 6f 66 20 4d 79 56 61 6c |pos + 1 |of MyVal|
|000008c0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 69 66 20 74 |.end rep|eat.if t|
|000008d0| 68 65 20 66 69 72 73 74 | 20 63 68 61 72 20 6f 66 |he first| char of|
|000008e0| 20 4d 79 56 61 6c 20 69 | 73 20 72 65 74 75 72 6e | MyVal i|s return|
|000008f0| 20 74 68 65 6e 20 64 65 | 6c 65 74 65 20 66 69 72 | then de|lete fir|
|00000900| 73 74 20 63 68 61 72 20 | 6f 66 20 4d 79 56 61 6c |st char |of MyVal|
|00000910| 0d 69 66 20 74 68 65 20 | 6c 61 73 74 20 63 68 61 |.if the |last cha|
|00000920| 72 20 6f 66 20 4d 79 56 | 61 6c 20 69 73 20 72 65 |r of MyV|al is re|
|00000930| 74 75 72 6e 20 74 68 65 | 6e 20 64 65 6c 65 74 65 |turn the|n delete|
|00000940| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 4d 79 | last ch|ar of My|
|00000950| 56 61 6c 0d 70 75 74 20 | 4d 79 56 61 6c 20 69 6e |Val.put |MyVal in|
|00000960| 74 6f 20 74 68 65 20 74 | 61 72 67 65 74 0d 65 6e |to the t|arget.en|
|00000970| 64 20 52 65 6d 6f 76 65 | 42 6c 61 6e 6b 4c 69 6e |d Remove|BlankLin|
|00000980| 65 73 0d 0d 6f 6e 20 52 | 65 6d 6f 76 65 4c 65 61 |es..on R|emoveLea|
|00000990| 64 69 6e 67 53 70 61 63 | 65 73 0d 70 75 74 20 74 |dingSpac|es.put t|
|000009a0| 61 72 67 65 74 20 69 6e | 74 6f 20 4d 79 56 61 6c |arget in|to MyVal|
|000009b0| 0d 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 63 68 |.repeat |while ch|
|000009c0| 61 72 20 31 20 6f 66 20 | 4d 79 56 61 6c 20 69 73 |ar 1 of |MyVal is|
|000009d0| 20 73 70 61 63 65 0d 64 | 65 6c 65 74 65 20 63 68 | space.d|elete ch|
|000009e0| 61 72 20 31 20 6f 66 20 | 4d 79 56 61 6c 0d 65 6e |ar 1 of |MyVal.en|
|000009f0| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 4d 79 56 |d repeat|.put MyV|
|00000a00| 61 6c 20 69 6e 74 6f 20 | 74 68 65 20 74 61 72 67 |al into |the targ|
|00000a10| 65 74 0d 65 6e 64 20 52 | 65 6d 6f 76 65 4c 65 61 |et.end R|emoveLea|
|00000a20| 64 69 6e 67 53 70 61 63 | 65 73 0d 0d 6f 6e 20 52 |dingSpac|es..on R|
|00000a30| 65 6d 6f 76 65 54 72 61 | 69 6c 69 6e 67 53 70 61 |emoveTra|ilingSpa|
|00000a40| 63 65 73 0d 70 75 74 20 | 74 61 72 67 65 74 20 69 |ces.put |target i|
|00000a50| 6e 74 6f 20 4d 79 56 61 | 6c 0d 72 65 70 65 61 74 |nto MyVa|l.repeat|
|00000a60| 20 77 68 69 6c 65 20 6c | 61 73 74 20 63 68 61 72 | while l|ast char|
|00000a70| 20 6f 66 20 4d 79 56 61 | 6c 20 69 73 20 73 70 61 | of MyVa|l is spa|
|00000a80| 63 65 0d 64 65 6c 65 74 | 65 20 6c 61 73 74 20 63 |ce.delet|e last c|
|00000a90| 68 61 72 20 6f 66 20 4d | 79 56 61 6c 0d 65 6e 64 |har of M|yVal.end|
|00000aa0| 20 72 65 70 65 61 74 0d | 70 75 74 20 4d 79 56 61 | repeat.|put MyVa|
|00000ab0| 6c 20 69 6e 74 6f 20 74 | 68 65 20 74 61 72 67 65 |l into t|he targe|
|00000ac0| 74 0d 65 6e 64 20 52 65 | 6d 6f 76 65 54 72 61 69 |t.end Re|moveTrai|
|00000ad0| 6c 69 6e 67 53 70 61 63 | 65 73 0d 0d 6f 6e 20 52 |lingSpac|es..on R|
|00000ae0| 65 6d 6f 76 65 53 70 61 | 63 65 73 41 74 42 65 67 |emoveSpa|cesAtBeg|
|00000af0| 69 6e 6e 69 6e 67 73 4f | 66 4c 69 6e 65 73 0d 70 |inningsO|fLines.p|
|00000b00| 75 74 20 74 61 72 67 65 | 74 20 69 6e 74 6f 20 4d |ut targe|t into M|
|00000b10| 79 56 61 6c 0d 70 75 74 | 20 72 65 74 75 72 6e 26 |yVal.put| return&|
|00000b20| 6d 79 56 61 6c 20 69 6e | 74 6f 20 4d 79 56 61 6c |myVal in|to MyVal|
|00000b30| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 70 6f 73 0d |.put 1 i|nto pos.|
|00000b40| 72 65 70 65 61 74 0d 70 | 75 74 20 66 75 6c 6c 4f |repeat.p|ut fullO|
|00000b50| 66 66 73 65 74 28 72 65 | 74 75 72 6e 26 73 70 61 |ffset(re|turn&spa|
|00000b60| 63 65 2c 4d 79 56 61 6c | 2c 70 6f 73 29 20 69 6e |ce,MyVal|,pos) in|
|00000b70| 74 6f 20 70 6f 73 0d 69 | 66 20 70 6f 73 20 3d 20 |to pos.i|f pos = |
|00000b80| 30 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 70 65 |0 then e|xit repe|
|00000b90| 61 74 0d 70 75 74 20 72 | 65 74 75 72 6e 20 69 6e |at.put r|eturn in|
|00000ba0| 74 6f 20 63 68 61 72 20 | 70 6f 73 20 74 6f 20 70 |to char |pos to p|
|00000bb0| 6f 73 20 2b 20 31 20 6f | 66 20 4d 79 56 61 6c 0d |os + 1 o|f MyVal.|
|00000bc0| 65 6e 64 20 72 65 70 65 | 61 74 0d 64 65 6c 65 74 |end repe|at.delet|
|00000bd0| 65 20 63 68 61 72 20 31 | 20 6f 66 20 4d 79 56 61 |e char 1| of MyVa|
|00000be0| 6c 0d 70 75 74 20 4d 79 | 56 61 6c 20 69 6e 74 6f |l.put My|Val into|
|00000bf0| 20 74 68 65 20 74 61 72 | 67 65 74 0d 65 6e 64 20 | the tar|get.end |
|00000c00| 52 65 6d 6f 76 65 53 70 | 61 63 65 73 41 74 42 65 |RemoveSp|acesAtBe|
|00000c10| 67 69 6e 6e 69 6e 67 73 | 4f 66 4c 69 6e 65 73 0d |ginnings|OfLines.|
|00000c20| 0d 6f 6e 20 52 65 6d 6f | 76 65 53 70 61 63 65 73 |.on Remo|veSpaces|
|00000c30| 41 74 45 6e 64 73 4f 66 | 4c 69 6e 65 73 0d 70 75 |AtEndsOf|Lines.pu|
|00000c40| 74 20 74 61 72 67 65 74 | 20 69 6e 74 6f 20 4d 79 |t target| into My|
|00000c50| 56 61 6c 0d 70 75 74 20 | 6d 79 56 61 6c 26 72 65 |Val.put |myVal&re|
|00000c60| 74 75 72 6e 20 69 6e 74 | 6f 20 4d 79 56 61 6c 0d |turn int|o MyVal.|
|00000c70| 70 75 74 20 31 20 69 6e | 74 6f 20 70 6f 73 0d 72 |put 1 in|to pos.r|
|00000c80| 65 70 65 61 74 0d 70 75 | 74 20 66 75 6c 6c 4f 66 |epeat.pu|t fullOf|
|00000c90| 66 73 65 74 28 73 70 61 | 63 65 26 72 65 74 75 72 |fset(spa|ce&retur|
|00000ca0| 6e 2c 4d 79 56 61 6c 2c | 70 6f 73 29 20 69 6e 74 |n,MyVal,|pos) int|
|00000cb0| 6f 20 70 6f 73 0d 69 66 | 20 70 6f 73 20 3d 20 30 |o pos.if| pos = 0|
|00000cc0| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|00000cd0| 74 0d 70 75 74 20 72 65 | 74 75 72 6e 20 69 6e 74 |t.put re|turn int|
|00000ce0| 6f 20 63 68 61 72 20 70 | 6f 73 20 74 6f 20 70 6f |o char p|os to po|
|00000cf0| 73 20 2b 20 31 20 6f 66 | 20 4d 79 56 61 6c 0d 65 |s + 1 of| MyVal.e|
|00000d00| 6e 64 20 72 65 70 65 61 | 74 0d 64 65 6c 65 74 65 |nd repea|t.delete|
|00000d10| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 4d 79 | last ch|ar of My|
|00000d20| 56 61 6c 0d 70 75 74 20 | 4d 79 56 61 6c 20 69 6e |Val.put |MyVal in|
|00000d30| 74 6f 20 74 68 65 20 74 | 61 72 67 65 74 0d 65 6e |to the t|arget.en|
|00000d40| 64 20 52 65 6d 6f 76 65 | 53 70 61 63 65 73 41 74 |d Remove|SpacesAt|
|00000d50| 45 6e 64 73 4f 66 4c 69 | 6e 65 73 0d 0d 6f 6e 20 |EndsOfLi|nes..on |
|00000d60| 52 65 74 75 72 6e 73 54 | 6f 53 70 61 63 65 73 0d |ReturnsT|oSpaces.|
|00000d70| 70 75 74 20 66 75 6c 6c | 52 65 70 6c 61 63 65 28 |put full|Replace(|
|00000d80| 74 61 72 67 65 74 2c 72 | 65 74 75 72 6e 2c 73 70 |target,r|eturn,sp|
|00000d90| 61 63 65 29 20 69 6e 74 | 6f 20 74 68 65 20 74 61 |ace) int|o the ta|
|00000da0| 72 67 65 74 0d 65 6e 64 | 20 52 65 74 75 72 6e 73 |rget.end| Returns|
|00000db0| 54 6f 53 70 61 63 65 73 | 0d 0d 6f 6e 20 54 61 62 |ToSpaces|..on Tab|
|00000dc0| 73 54 6f 53 70 61 63 65 | 73 0d 70 75 74 20 66 75 |sToSpace|s.put fu|
|00000dd0| 6c 6c 52 65 70 6c 61 63 | 65 28 74 61 72 67 65 74 |llReplac|e(target|
|00000de0| 2c 74 61 62 2c 73 70 61 | 63 65 29 20 69 6e 74 6f |,tab,spa|ce) into|
|00000df0| 20 74 68 65 20 74 61 72 | 67 65 74 0d 65 6e 64 20 | the tar|get.end |
|00000e00| 54 61 62 73 54 6f 53 70 | 61 63 65 73 0d 0d 6f 6e |TabsToSp|aces..on|
|00000e10| 20 52 65 6d 6f 76 65 45 | 78 74 72 61 53 70 61 63 | RemoveE|xtraSpac|
|00000e20| 65 73 0d 70 75 74 20 74 | 61 72 67 65 74 20 69 6e |es.put t|arget in|
|00000e30| 74 6f 20 4d 79 56 61 6c | 0d 70 75 74 20 31 20 69 |to MyVal|.put 1 i|
|00000e40| 6e 74 6f 20 70 6f 73 0d | 72 65 70 65 61 74 0d 70 |nto pos.|repeat.p|
|00000e50| 75 74 20 66 75 6c 6c 4f | 66 66 73 65 74 28 22 20 |ut fullO|ffset(" |
|00000e60| 20 22 2c 4d 79 56 61 6c | 2c 70 6f 73 29 20 69 6e | ",MyVal|,pos) in|
|00000e70| 74 6f 20 70 6f 73 0d 69 | 66 20 70 6f 73 20 3d 20 |to pos.i|f pos = |
|00000e80| 30 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 70 65 |0 then e|xit repe|
|00000e90| 61 74 0d 70 75 74 20 73 | 70 61 63 65 20 69 6e 74 |at.put s|pace int|
|00000ea0| 6f 20 63 68 61 72 20 70 | 6f 73 20 74 6f 20 70 6f |o char p|os to po|
|00000eb0| 73 20 2b 20 31 20 6f 66 | 20 4d 79 56 61 6c 0d 65 |s + 1 of| MyVal.e|
|00000ec0| 6e 64 20 72 65 70 65 61 | 74 0d 70 75 74 20 4d 79 |nd repea|t.put My|
|00000ed0| 56 61 6c 20 69 6e 74 6f | 20 74 68 65 20 74 61 72 |Val into| the tar|
|00000ee0| 67 65 74 0d 65 6e 64 20 | 52 65 6d 6f 76 65 45 78 |get.end |RemoveEx|
|00000ef0| 74 72 61 53 70 61 63 65 | 73 0d 0d 6f 6e 20 43 6c |traSpace|s..on Cl|
|00000f00| 65 61 6e 55 70 52 65 74 | 75 72 6e 44 65 6c 69 6d |eanUpRet|urnDelim|
|00000f10| 69 74 65 64 4c 69 73 74 | 0d 54 61 62 73 54 6f 53 |itedList|.TabsToS|
|00000f20| 70 61 63 65 73 0d 52 65 | 6d 6f 76 65 45 78 74 72 |paces.Re|moveExtr|
|00000f30| 61 53 70 61 63 65 73 0d | 52 65 6d 6f 76 65 53 70 |aSpaces.|RemoveSp|
|00000f40| 61 63 65 73 41 74 45 6e | 64 73 4f 66 4c 69 6e 65 |acesAtEn|dsOfLine|
|00000f50| 73 0d 52 65 6d 6f 76 65 | 53 70 61 63 65 73 41 74 |s.Remove|SpacesAt|
|00000f60| 42 65 67 69 6e 6e 69 6e | 67 73 4f 66 4c 69 6e 65 |Beginnin|gsOfLine|
|00000f70| 73 0d 52 65 6d 6f 76 65 | 42 6c 61 6e 6b 4c 69 6e |s.Remove|BlankLin|
|00000f80| 65 73 0d 65 6e 64 20 43 | 6c 65 61 6e 55 70 52 65 |es.end C|leanUpRe|
|00000f90| 74 75 72 6e 44 65 6c 69 | 6d 69 74 65 64 4c 69 73 |turnDeli|mitedLis|
|00000fa0| 74 0d 0d 6f 6e 20 56 61 | 6c 69 64 61 74 65 49 6e |t..on Va|lidateIn|
|00000fb0| 74 65 67 65 72 45 6e 74 | 72 79 20 4c 6f 77 42 6f |tegerEnt|ry LowBo|
|00000fc0| 75 6e 64 2c 48 69 67 68 | 42 6f 75 6e 64 2c 4f 6c |und,High|Bound,Ol|
|00000fd0| 64 56 61 6c 75 65 0d 70 | 75 74 20 74 61 72 67 65 |dValue.p|ut targe|
|00000fe0| 74 20 69 6e 74 6f 20 4e | 65 77 56 61 6c 75 65 0d |t into N|ewValue.|
|00000ff0| 69 66 20 4c 6f 77 42 6f | 75 6e 64 20 69 73 20 65 |if LowBo|und is e|
|00001000| 6d 70 74 79 20 74 68 65 | 6e 20 70 75 74 20 4e 65 |mpty the|n put Ne|
|00001010| 77 56 61 6c 75 65 20 69 | 6e 74 6f 20 4c 6f 77 42 |wValue i|nto LowB|
|00001020| 6f 75 6e 64 0d 69 66 20 | 48 69 67 68 42 6f 75 6e |ound.if |HighBoun|
|00001030| 64 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |d is emp|ty then |
|00001040| 70 75 74 20 4e 65 77 56 | 61 6c 75 65 20 69 6e 74 |put NewV|alue int|
|00001050| 6f 20 48 69 67 68 42 6f | 75 6e 64 0d 69 66 20 4e |o HighBo|und.if N|
|00001060| 65 77 56 61 6c 75 65 20 | 69 73 20 6e 6f 74 20 61 |ewValue |is not a|
|00001070| 6e 20 69 6e 74 65 67 65 | 72 20 6f 72 20 4e 65 77 |n intege|r or New|
|00001080| 56 61 6c 75 65 20 3c 20 | 4c 6f 77 42 6f 75 6e 64 |Value < |LowBound|
|00001090| 20 6f 72 20 4e 65 77 56 | 61 6c 75 65 20 3e 20 48 | or NewV|alue > H|
|000010a0| 69 67 68 42 6f 75 6e 64 | 0d 74 68 65 6e 20 52 65 |ighBound|.then Re|
|000010b0| 73 65 74 54 6f 56 61 6c | 69 64 56 61 6c 75 65 20 |setToVal|idValue |
|000010c0| 4f 6c 64 56 61 6c 75 65 | 0d 65 6e 64 20 56 61 6c |OldValue|.end Val|
|000010d0| 69 64 61 74 65 49 6e 74 | 65 67 65 72 45 6e 74 72 |idateInt|egerEntr|
|000010e0| 79 0d 0d 6f 6e 20 52 65 | 73 65 74 54 6f 56 61 6c |y..on Re|setToVal|
|000010f0| 69 64 56 61 6c 75 65 20 | 56 61 6c 69 64 56 61 6c |idValue |ValidVal|
|00001100| 75 65 4f 6e 45 6e 74 72 | 79 0d 61 6e 73 77 65 72 |ueOnEntr|y.answer|
|00001110| 20 22 54 68 65 20 76 61 | 6c 75 65 20 79 6f 75 20 | "The va|lue you |
|00001120| 68 61 76 65 20 65 6e 74 | 65 72 65 64 20 69 73 20 |have ent|ered is |
|00001130| 69 6e 76 61 6c 69 64 2e | 22 26 72 65 74 75 72 6e |invalid.|"&return|
|00001140| c2 0d 26 22 54 68 65 20 | 66 69 65 6c 64 d5 73 20 |..&"The |field.s |
|00001150| 6f 72 69 67 69 6e 61 6c | 20 76 61 6c 75 65 20 77 |original| value w|
|00001160| 69 6c 6c 20 62 65 20 6b | 65 70 74 2e 22 0d 70 75 |ill be k|ept.".pu|
|00001170| 74 20 56 61 6c 69 64 56 | 61 6c 75 65 4f 6e 45 6e |t ValidV|alueOnEn|
|00001180| 74 72 79 20 69 6e 74 6f | 20 74 68 65 20 74 61 72 |try into| the tar|
|00001190| 67 65 74 0d 65 6e 64 20 | 52 65 73 65 74 54 6f 56 |get.end |ResetToV|
|000011a0| 61 6c 69 64 56 61 6c 75 | 65 0d 0d a5 a5 20 45 6e |alidValu|e.... En|
|000011b0| 64 20 56 61 6c 69 64 20 | 45 6e 74 72 79 20 50 61 |d Valid |Entry Pa|
|000011c0| 63 6b 61 67 65 20 53 63 | 72 69 70 74 73 20 a5 a5 |ckage Sc|ripts ..|
|000011d0| 0d 0d 0d 2d 2d 20 56 65 | 72 69 66 79 20 66 69 65 |...-- Ve|rify fie|
|000011e0| 6c 64 73 20 2d 2d 0d 0d | 6f 6e 20 63 68 65 63 6b |lds --..|on check|
|000011f0| 4b 65 79 0d 67 6c 6f 62 | 61 6c 20 6c 6f 6f 70 46 |Key.glob|al loopF|
|00001200| 6c 61 67 2c 76 65 72 69 | 66 79 46 6c 61 67 0d 70 |lag,veri|fyFlag.p|
|00001210| 75 74 20 74 61 72 67 65 | 74 20 69 6e 74 6f 20 6b |ut targe|t into k|
|00001220| 65 79 0d 70 75 74 20 66 | 69 72 73 74 43 68 75 6e |ey.put f|irstChun|
|00001230| 6b 28 22 21 22 2c 6b 65 | 79 29 20 69 6e 74 6f 20 |k("!",ke|y) into |
|00001240| 65 6e 74 72 79 4b 65 79 | 0d 69 66 20 6c 6f 6f 70 |entryKey|.if loop|
|00001250| 46 6c 61 67 20 69 73 20 | 6e 6f 74 20 74 72 75 65 |Flag is |not true|
|00001260| 20 74 68 65 6e 0d 69 66 | 20 76 65 72 69 66 79 46 | then.if| verifyF|
|00001270| 6c 61 67 20 69 73 20 6e | 6f 74 20 74 72 75 65 20 |lag is n|ot true |
|00001280| 74 68 65 6e 0d 73 65 74 | 20 6e 61 6d 65 20 6f 66 |then.set| name of|
|00001290| 20 74 68 69 73 20 63 61 | 72 64 20 74 6f 20 65 6e | this ca|rd to en|
|000012a0| 74 72 79 4b 65 79 0d 65 | 78 69 74 20 63 68 65 63 |tryKey.e|xit chec|
|000012b0| 6b 4b 65 79 0d 65 6e 64 | 20 69 66 0d 73 65 74 4c |kKey.end| if.setL|
|000012c0| 6f 63 6b 45 72 72 6f 72 | 44 69 61 6c 6f 67 73 0d |ockError|Dialogs.|
|000012d0| 64 69 73 61 6c 6c 6f 77 | 49 6e 74 65 72 72 75 70 |disallow|Interrup|
|000012e0| 74 69 6f 6e 0d 65 6e 64 | 20 69 66 0d 69 66 20 65 |tion.end| if.if e|
|000012f0| 6e 74 72 79 4b 65 79 20 | 69 73 20 65 6d 70 74 79 |ntryKey |is empty|
|00001300| 20 74 68 65 6e 0d 73 65 | 74 20 6e 61 6d 65 20 6f | then.se|t name o|
|00001310| 66 20 74 68 69 73 20 63 | 61 72 64 20 74 6f 20 65 |f this c|ard to e|
|00001320| 6d 70 74 79 0d 73 65 6e | 64 20 6f 70 65 6e 43 61 |mpty.sen|d openCa|
|00001330| 72 64 20 74 6f 20 74 68 | 69 73 20 62 67 0d 75 6e |rd to th|is bg.un|
|00001340| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 62 65 65 70 |lock scr|een.beep|
|00001350| 0d 61 6e 73 77 65 72 20 | 22 54 68 65 20 45 6e 74 |.answer |"The Ent|
|00001360| 72 79 20 4b 65 79 20 69 | 73 20 65 6d 70 74 79 2e |ry Key i|s empty.|
|00001370| 22 20 77 69 74 68 20 22 | 46 69 78 20 69 74 22 20 |" with "|Fix it" |
|00001380| 6f 72 20 22 43 6f 6e 74 | 69 6e 75 65 22 0d 69 66 |or "Cont|inue".if|
|00001390| 20 69 74 20 69 73 20 22 | 43 6f 6e 74 69 6e 75 65 | it is "|Continue|
|000013a0| 22 20 74 68 65 6e 0d 69 | 66 20 6c 6f 6f 70 46 6c |" then.i|f loopFl|
|000013b0| 61 67 20 69 73 20 74 72 | 75 65 20 74 68 65 6e 0d |ag is tr|ue then.|
|000013c0| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 77 61 |set curs|or to wa|
|000013d0| 74 63 68 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |tch.lock| screen.|
|000013e0| 65 6e 64 20 69 66 0d 65 | 6c 73 65 0d 63 6c 6f 73 |end if.e|lse.clos|
|000013f0| 65 57 69 6e 64 6f 77 73 | 20 22 50 72 6f 6d 70 74 |eWindows| "Prompt|
|00001400| 6f 69 64 22 0d 73 65 6e | 64 20 6f 70 65 6e 42 61 |oid".sen|d openBa|
|00001410| 63 6b 67 72 6f 75 6e 64 | 20 74 6f 20 74 68 69 73 |ckground| to this|
|00001420| 20 62 67 0d 73 65 6e 64 | 20 6f 70 65 6e 43 61 72 | bg.send| openCar|
|00001430| 64 20 74 6f 20 74 68 69 | 73 20 62 67 0d 70 75 74 |d to thi|s bg.put|
|00001440| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 6c 6f 6f 70 | false i|nto loop|
|00001450| 46 6c 61 67 0d 73 65 6c | 65 63 74 20 74 65 78 74 |Flag.sel|ect text|
|00001460| 20 6f 66 20 74 68 65 20 | 74 61 72 67 65 74 0d 61 | of the |target.a|
|00001470| 6c 6c 6f 77 49 6e 74 65 | 72 72 75 70 74 69 6f 6e |llowInte|rruption|
|00001480| 0d 65 78 69 74 20 74 6f | 20 48 79 70 65 72 43 61 |.exit to| HyperCa|
|00001490| 72 64 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 0d 73 |rd.end i|f.else.s|
|000014a0| 65 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |et name |of this |
|000014b0| 63 61 72 64 20 74 6f 20 | 65 6d 70 74 79 0d 69 66 |card to |empty.if|
|000014c0| 20 74 68 65 72 65 20 69 | 73 20 61 20 63 64 20 65 | there i|s a cd e|
|000014d0| 6e 74 72 79 4b 65 79 20 | 74 68 65 6e 0d 73 65 74 |ntryKey |then.set|
|000014e0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 63 61 | name of| this ca|
|000014f0| 72 64 20 74 6f 20 65 6e | 74 72 79 4b 65 79 0d 73 |rd to en|tryKey.s|
|00001500| 65 6e 64 20 6f 70 65 6e | 43 61 72 64 20 74 6f 20 |end open|Card to |
|00001510| 74 68 69 73 20 62 67 0d | 75 6e 6c 6f 63 6b 20 73 |this bg.|unlock s|
|00001520| 63 72 65 65 6e 0d 62 65 | 65 70 0d 61 6e 73 77 65 |creen.be|ep.answe|
|00001530| 72 20 22 41 20 63 61 72 | 64 20 61 6c 72 65 61 64 |r "A car|d alread|
|00001540| 79 20 65 78 69 73 74 73 | 20 77 69 74 68 20 74 68 |y exists| with th|
|00001550| 69 73 20 4b 65 79 2e 22 | 20 77 69 74 68 20 22 46 |is Key."| with "F|
|00001560| 69 78 20 69 74 22 20 6f | 72 20 22 43 6f 6e 74 69 |ix it" o|r "Conti|
|00001570| 6e 75 65 22 0d 69 66 20 | 69 74 20 69 73 20 22 43 |nue".if |it is "C|
|00001580| 6f 6e 74 69 6e 75 65 22 | 20 74 68 65 6e 0d 69 66 |ontinue"| then.if|
|00001590| 20 6c 6f 6f 70 46 6c 61 | 67 20 69 73 20 74 72 75 | loopFla|g is tru|
|000015a0| 65 20 74 68 65 6e 0d 73 | 65 74 20 63 75 72 73 6f |e then.s|et curso|
|000015b0| 72 20 74 6f 20 77 61 74 | 63 68 0d 6c 6f 63 6b 20 |r to wat|ch.lock |
|000015c0| 73 63 72 65 65 6e 0d 65 | 6e 64 20 69 66 0d 65 6c |screen.e|nd if.el|
|000015d0| 73 65 0d 63 6c 6f 73 65 | 57 69 6e 64 6f 77 73 20 |se.close|Windows |
|000015e0| 22 50 72 6f 6d 70 74 6f | 69 64 22 0d 73 65 6e 64 |"Prompto|id".send|
|000015f0| 20 6f 70 65 6e 42 61 63 | 6b 67 72 6f 75 6e 64 20 | openBac|kground |
|00001600| 74 6f 20 74 68 69 73 20 | 62 67 0d 73 65 6e 64 20 |to this |bg.send |
|00001610| 6f 70 65 6e 43 61 72 64 | 20 74 6f 20 74 68 69 73 |openCard| to this|
|00001620| 20 62 67 0d 70 75 74 20 | 66 61 6c 73 65 20 69 6e | bg.put |false in|
|00001630| 74 6f 20 6c 6f 6f 70 46 | 6c 61 67 0d 73 65 6c 65 |to loopF|lag.sele|
|00001640| 63 74 20 74 65 78 74 20 | 6f 66 20 74 68 65 20 74 |ct text |of the t|
|00001650| 61 72 67 65 74 0d 61 6c | 6c 6f 77 49 6e 74 65 72 |arget.al|lowInter|
|00001660| 72 75 70 74 69 6f 6e 0d | 65 78 69 74 20 74 6f 20 |ruption.|exit to |
|00001670| 48 79 70 65 72 43 61 72 | 64 0d 65 6e 64 20 69 66 |HyperCar|d.end if|
|00001680| 0d 65 6c 73 65 0d 73 65 | 74 20 6e 61 6d 65 20 6f |.else.se|t name o|
|00001690| 66 20 74 68 69 73 20 63 | 61 72 64 20 74 6f 20 65 |f this c|ard to e|
|000016a0| 6e 74 72 79 4b 65 79 0d | 69 66 20 6c 6f 6f 70 46 |ntryKey.|if loopF|
|000016b0| 6c 61 67 20 69 73 20 6e | 6f 74 20 74 72 75 65 20 |lag is n|ot true |
|000016c0| 74 68 65 6e 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |then.unl|ock scre|
|000016d0| 65 6e 0d 72 65 74 75 72 | 6e 49 6e 46 69 65 6c 64 |en.retur|nInField|
|000016e0| 0d 61 6c 6c 6f 77 49 6e | 74 65 72 72 75 70 74 69 |.allowIn|terrupti|
|000016f0| 6f 6e 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |on.end i|f.end if|
|00001700| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 63 68 65 63 |.end if.|end chec|
|00001710| 6b 4b 65 79 0d 0d 6f 6e | 20 65 78 69 74 56 65 72 |kKey..on| exitVer|
|00001720| 69 66 79 4c 6f 6f 70 0d | 67 6c 6f 62 61 6c 20 6c |ifyLoop.|global l|
|00001730| 6f 6f 70 46 6c 61 67 2c | 6e 6f 41 64 64 2c 67 6c |oopFlag,|noAdd,gl|
|00001740| 6f 62 61 6c 4c 69 73 74 | 4e 61 6d 65 0d 69 66 20 |obalList|Name.if |
|00001750| 6c 6f 6f 70 46 6c 61 67 | 20 69 73 20 6e 6f 74 20 |loopFlag| is not |
|00001760| 74 72 75 65 20 74 68 65 | 6e 20 65 78 69 74 20 65 |true the|n exit e|
|00001770| 78 69 74 56 65 72 69 66 | 79 4c 6f 6f 70 0d 73 65 |xitVerif|yLoop.se|
|00001780| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 77 61 74 63 |t cursor| to watc|
|00001790| 68 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 69 66 |h.lock s|creen.if|
|000017a0| 20 67 6c 6f 62 61 6c 4c | 69 73 74 4e 61 6d 65 20 | globalL|istName |
|000017b0| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 0d 74 68 65 |is not e|mpty.the|
|000017c0| 6e 20 73 65 6e 64 20 63 | 6c 6f 73 65 46 69 65 6c |n send c|loseFiel|
|000017d0| 64 20 74 6f 20 63 64 20 | 66 6c 64 20 67 6c 6f 62 |d to cd |fld glob|
|000017e0| 61 6c 4c 69 73 74 4e 61 | 6d 65 20 6f 66 20 63 64 |alListNa|me of cd|
|000017f0| 20 67 6c 6f 62 61 6c 4c | 69 73 74 4e 61 6d 65 20 | globalL|istName |
|00001800| 6f 66 20 62 67 20 22 48 | 42 20 55 74 69 6c 69 74 |of bg "H|B Utilit|
|00001810| 79 20 43 61 72 64 73 22 | 0d 63 6c 6f 73 65 57 69 |y Cards"|.closeWi|
|00001820| 6e 64 6f 77 73 20 22 50 | 72 6f 6d 70 74 6f 69 64 |ndows "P|romptoid|
|00001830| 22 0d 70 75 74 20 66 61 | 6c 73 65 20 69 6e 74 6f |".put fa|lse into|
|00001840| 20 6c 6f 6f 70 46 6c 61 | 67 0d 70 75 74 20 65 6d | loopFla|g.put em|
|00001850| 70 74 79 20 69 6e 74 6f | 20 6e 6f 41 64 64 0d 70 |pty into| noAdd.p|
|00001860| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 67 6c |ut empty| into gl|
|00001870| 6f 62 61 6c 4c 69 73 74 | 4e 61 6d 65 0d 75 6e 6c |obalList|Name.unl|
|00001880| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 61 6c 6c 6f 77 |ock scre|en.allow|
|00001890| 49 6e 74 65 72 72 75 70 | 74 69 6f 6e 0d 65 6e 64 |Interrup|tion.end|
|000018a0| 20 65 78 69 74 56 65 72 | 69 66 79 4c 6f 6f 70 0d | exitVer|ifyLoop.|
|000018b0| 0d 6f 6e 20 76 65 72 69 | 66 79 46 69 65 6c 64 20 |.on veri|fyField |
|000018c0| 6c 69 73 74 4e 61 6d 65 | 2c 66 6c 64 4e 61 6d 65 |listName|,fldName|
|000018d0| 0d 67 6c 6f 62 61 6c 20 | 76 65 72 69 66 79 46 6c |.global |verifyFl|
|000018e0| 61 67 2c 63 6f 6e 66 69 | 72 6d 56 65 72 69 66 79 |ag,confi|rmVerify|
|000018f0| 46 6c 61 67 2c 67 6c 6f | 62 61 6c 4c 69 73 74 4e |Flag,glo|balListN|
|00001900| 61 6d 65 2c 6c 6f 6f 70 | 46 6c 61 67 0d 69 66 20 |ame,loop|Flag.if |
|00001910| 6c 6f 6f 70 46 6c 61 67 | 20 69 73 20 6e 6f 74 20 |loopFlag| is not |
|00001920| 74 72 75 65 20 74 68 65 | 6e 0d 69 66 20 76 65 72 |true the|n.if ver|
|00001930| 69 66 79 46 6c 61 67 20 | 69 73 20 6e 6f 74 20 74 |ifyFlag |is not t|
|00001940| 72 75 65 20 74 68 65 6e | 20 65 78 69 74 20 76 65 |rue then| exit ve|
|00001950| 72 69 66 79 46 69 65 6c | 64 0d 73 65 74 4c 6f 63 |rifyFiel|d.setLoc|
|00001960| 6b 45 72 72 6f 72 44 69 | 61 6c 6f 67 73 0d 70 75 |kErrorDi|alogs.pu|
|00001970| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 63 6f 6e 66 |t true i|nto conf|
|00001980| 69 72 6d 56 65 72 69 66 | 79 46 6c 61 67 0d 65 6e |irmVerif|yFlag.en|
|00001990| 64 20 69 66 0d 70 75 74 | 20 6c 69 73 74 4e 61 6d |d if.put| listNam|
|000019a0| 65 20 69 6e 74 6f 20 67 | 6c 6f 62 61 6c 4c 69 73 |e into g|lobalLis|
|000019b0| 74 4e 61 6d 65 0d 70 75 | 74 20 66 6c 64 20 66 6c |tName.pu|t fld fl|
|000019c0| 64 4e 61 6d 65 20 69 6e | 74 6f 20 74 68 65 46 6c |dName in|to theFl|
|000019d0| 64 0d 69 66 20 74 68 65 | 46 6c 64 20 69 73 20 65 |d.if the|Fld is e|
|000019e0| 6d 70 74 79 20 74 68 65 | 6e 20 65 78 69 74 20 76 |mpty the|n exit v|
|000019f0| 65 72 69 66 79 46 69 65 | 6c 64 0d 69 66 20 69 73 |erifyFie|ld.if is|
|00001a00| 41 62 62 72 65 76 28 74 | 68 65 46 6c 64 29 20 74 |Abbrev(t|heFld) t|
|00001a10| 68 65 6e 0d 69 66 20 6e | 6f 74 20 69 73 56 61 6c |hen.if n|ot isVal|
|00001a20| 69 64 41 62 62 72 65 76 | 28 74 68 65 46 6c 64 29 |idAbbrev|(theFld)|
|00001a30| 20 74 68 65 6e 0d 62 61 | 64 41 62 62 72 65 76 44 | then.ba|dAbbrevD|
|00001a40| 69 61 6c 6f 67 20 74 68 | 65 46 6c 64 0d 65 78 69 |ialog th|eFld.exi|
|00001a50| 74 56 65 72 69 66 79 4c | 6f 6f 70 0d 73 65 6c 65 |tVerifyL|oop.sele|
|00001a60| 63 74 20 74 65 78 74 20 | 6f 66 20 66 6c 64 20 66 |ct text |of fld f|
|00001a70| 6c 64 4e 61 6d 65 0d 65 | 78 69 74 20 74 6f 20 48 |ldName.e|xit to H|
|00001a80| 79 70 65 72 43 61 72 64 | 0d 65 6c 73 65 0d 69 66 |yperCard|.else.if|
|00001a90| 20 6e 6f 74 20 76 65 72 | 69 66 79 41 62 62 72 65 | not ver|ifyAbbre|
|00001aa0| 76 28 6c 69 73 74 4e 61 | 6d 65 2c 74 68 65 46 6c |v(listNa|me,theFl|
|00001ab0| 64 29 20 74 68 65 6e 0d | 69 66 20 63 6f 6e 66 69 |d) then.|if confi|
|00001ac0| 72 6d 56 65 72 69 66 79 | 46 6c 61 67 20 69 73 20 |rmVerify|Flag is |
|00001ad0| 74 72 75 65 20 74 68 65 | 6e 20 76 65 72 69 66 79 |true the|n verify|
|00001ae0| 41 62 62 72 65 76 44 69 | 61 6c 6f 67 20 6c 69 73 |AbbrevDi|alog lis|
|00001af0| 74 4e 61 6d 65 2c 74 68 | 65 46 6c 64 2c 66 6c 64 |tName,th|eFld,fld|
|00001b00| 4e 61 6d 65 0d 65 6c 73 | 65 20 61 64 64 41 62 62 |Name.els|e addAbb|
|00001b10| 72 65 76 54 6f 4c 69 73 | 74 20 6c 69 73 74 4e 61 |revToLis|t listNa|
|00001b20| 6d 65 2c 74 68 65 46 6c | 64 2c 66 6c 64 4e 61 6d |me,theFl|d,fldNam|
|00001b30| 65 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |e.end if|.end if.|
|00001b40| 65 6c 73 65 0d 69 66 20 | 6e 6f 74 20 76 65 72 69 |else.if |not veri|
|00001b50| 66 79 46 69 65 6c 64 43 | 6f 6e 74 65 6e 74 73 28 |fyFieldC|ontents(|
|00001b60| 6c 69 73 74 4e 61 6d 65 | 2c 74 68 65 46 6c 64 29 |listName|,theFld)|
|00001b70| 20 74 68 65 6e 0d 69 66 | 20 63 6f 6e 66 69 72 6d | then.if| confirm|
|00001b80| 56 65 72 69 66 79 46 6c | 61 67 20 69 73 20 74 72 |VerifyFl|ag is tr|
|00001b90| 75 65 20 74 68 65 6e 20 | 76 65 72 69 66 79 46 69 |ue then |verifyFi|
|00001ba0| 65 6c 64 44 69 61 6c 6f | 67 20 6c 69 73 74 4e 61 |eldDialo|g listNa|
|00001bb0| 6d 65 2c 74 68 65 46 6c | 64 2c 66 6c 64 4e 61 6d |me,theFl|d,fldNam|
|00001bc0| 65 0d 65 6c 73 65 20 61 | 64 64 54 6f 4c 69 73 74 |e.else a|ddToList|
|00001bd0| 20 6c 69 73 74 4e 61 6d | 65 2c 74 68 65 46 6c 64 | listNam|e,theFld|
|00001be0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 65 |.end if.|end if.e|
|00001bf0| 6e 64 20 76 65 72 69 66 | 79 46 69 65 6c 64 0d 0d |nd verif|yField..|
|00001c00| 6f 6e 20 76 65 72 69 66 | 79 41 75 74 68 6f 72 46 |on verif|yAuthorF|
|00001c10| 69 65 6c 64 0d 67 6c 6f | 62 61 6c 20 76 65 72 69 |ield.glo|bal veri|
|00001c20| 66 79 46 6c 61 67 2c 63 | 6f 6e 66 69 72 6d 56 65 |fyFlag,c|onfirmVe|
|00001c30| 72 69 66 79 46 6c 61 67 | 2c 67 6c 6f 62 61 6c 4c |rifyFlag|,globalL|
|00001c40| 69 73 74 4e 61 6d 65 2c | 6c 6f 6f 70 46 6c 61 67 |istName,|loopFlag|
|00001c50| 0d 70 75 74 20 22 41 75 | 74 68 6f 72 73 22 20 69 |.put "Au|thors" i|
|00001c60| 6e 74 6f 20 67 6c 6f 62 | 61 6c 4c 69 73 74 4e 61 |nto glob|alListNa|
|00001c70| 6d 65 0d 69 66 20 6c 6f | 6f 70 46 6c 61 67 20 69 |me.if lo|opFlag i|
|00001c80| 73 20 6e 6f 74 20 74 72 | 75 65 20 74 68 65 6e 0d |s not tr|ue then.|
|00001c90| 69 66 20 76 65 72 69 66 | 79 46 6c 61 67 20 69 73 |if verif|yFlag is|
|00001ca0| 20 6e 6f 74 20 74 72 75 | 65 20 74 68 65 6e 20 65 | not tru|e then e|
|00001cb0| 78 69 74 20 76 65 72 69 | 66 79 41 75 74 68 6f 72 |xit veri|fyAuthor|
|00001cc0| 46 69 65 6c 64 0d 73 65 | 74 4c 6f 63 6b 45 72 72 |Field.se|tLockErr|
|00001cd0| 6f 72 44 69 61 6c 6f 67 | 73 0d 70 75 74 20 74 72 |orDialog|s.put tr|
|00001ce0| 75 65 20 69 6e 74 6f 20 | 63 6f 6e 66 69 72 6d 56 |ue into |confirmV|
|00001cf0| 65 72 69 66 79 46 6c 61 | 67 0d 65 6e 64 20 69 66 |erifyFla|g.end if|
|00001d00| 0d 70 75 74 20 66 6c 64 | 20 22 41 75 74 68 6f 72 |.put fld| "Author|
|00001d10| 22 20 69 6e 74 6f 20 74 | 68 65 46 6c 64 0d 69 66 |" into t|heFld.if|
|00001d20| 20 74 68 65 46 6c 64 20 | 69 73 20 65 6d 70 74 79 | theFld |is empty|
|00001d30| 20 74 68 65 6e 20 65 78 | 69 74 20 76 65 72 69 66 | then ex|it verif|
|00001d40| 79 41 75 74 68 6f 72 46 | 69 65 6c 64 0d 69 66 20 |yAuthorF|ield.if |
|00001d50| 69 73 41 62 62 72 65 76 | 28 74 68 65 46 6c 64 29 |isAbbrev|(theFld)|
|00001d60| 20 74 68 65 6e 0d 69 66 | 20 6e 6f 74 20 69 73 56 | then.if| not isV|
|00001d70| 61 6c 69 64 41 62 62 72 | 65 76 28 74 68 65 46 6c |alidAbbr|ev(theFl|
|00001d80| 64 29 20 74 68 65 6e 0d | 62 61 64 41 62 62 72 65 |d) then.|badAbbre|
|00001d90| 76 44 69 61 6c 6f 67 20 | 74 68 65 46 6c 64 0d 65 |vDialog |theFld.e|
|00001da0| 78 69 74 56 65 72 69 66 | 79 4c 6f 6f 70 0d 73 65 |xitVerif|yLoop.se|
|00001db0| 6c 65 63 74 20 74 65 78 | 74 20 6f 66 20 66 6c 64 |lect tex|t of fld|
|00001dc0| 20 22 41 75 74 68 6f 72 | 22 0d 65 78 69 74 20 74 | "Author|".exit t|
|00001dd0| 6f 20 48 79 70 65 72 43 | 61 72 64 0d 65 6c 73 65 |o HyperC|ard.else|
|00001de0| 0d 69 66 20 6e 6f 74 20 | 76 65 72 69 66 79 41 62 |.if not |verifyAb|
|00001df0| 62 72 65 76 28 22 41 75 | 74 68 6f 72 73 22 2c 74 |brev("Au|thors",t|
|00001e00| 68 65 46 6c 64 29 20 74 | 68 65 6e 0d 69 66 20 63 |heFld) t|hen.if c|
|00001e10| 6f 6e 66 69 72 6d 56 65 | 72 69 66 79 46 6c 61 67 |onfirmVe|rifyFlag|
|00001e20| 20 69 73 20 74 72 75 65 | 20 74 68 65 6e 20 76 65 | is true| then ve|
|00001e30| 72 69 66 79 41 62 62 72 | 65 76 44 69 61 6c 6f 67 |rifyAbbr|evDialog|
|00001e40| 20 22 41 75 74 68 6f 72 | 73 22 2c 74 68 65 46 6c | "Author|s",theFl|
|00001e50| 64 2c 22 41 75 74 68 6f | 72 22 0d 65 6c 73 65 20 |d,"Autho|r".else |
|00001e60| 61 64 64 41 62 62 72 65 | 76 54 6f 4c 69 73 74 20 |addAbbre|vToList |
|00001e70| 22 41 75 74 68 6f 72 73 | 22 2c 74 68 65 46 6c 64 |"Authors|",theFld|
|00001e80| 2c 22 41 75 74 68 6f 72 | 22 0d 65 6e 64 20 69 66 |,"Author|".end if|
|00001e90| 0d 65 6e 64 20 69 66 0d | 65 6c 73 65 0d 70 75 74 |.end if.|else.put|
|00001ea0| 20 66 75 6c 6c 52 65 70 | 6c 61 63 65 28 66 6c 64 | fullRep|lace(fld|
|00001eb0| 20 22 41 75 74 68 6f 72 | 22 2c 22 20 61 6e 64 20 | "Author|"," and |
|00001ec0| 22 2c 72 65 74 75 72 6e | 29 20 69 6e 74 6f 20 61 |",return|) into a|
|00001ed0| 75 74 68 6f 72 4c 69 73 | 74 0d 72 65 70 65 61 74 |uthorLis|t.repeat|
|00001ee0| 20 77 69 74 68 20 78 20 | 3d 20 31 20 74 6f 20 28 | with x |= 1 to (|
|00001ef0| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00001f00| 69 6e 20 61 75 74 68 6f | 72 4c 69 73 74 29 0d 69 |in autho|rList).i|
|00001f10| 66 20 6e 6f 74 20 76 65 | 72 69 66 79 46 69 65 6c |f not ve|rifyFiel|
|00001f20| 64 43 6f 6e 74 65 6e 74 | 73 28 22 41 75 74 68 6f |dContent|s("Autho|
|00001f30| 72 73 22 2c 6c 69 6e 65 | 20 78 20 6f 66 20 61 75 |rs",line| x of au|
|00001f40| 74 68 6f 72 4c 69 73 74 | 29 20 74 68 65 6e 0d 69 |thorList|) then.i|
|00001f50| 66 20 63 6f 6e 66 69 72 | 6d 56 65 72 69 66 79 46 |f confir|mVerifyF|
|00001f60| 6c 61 67 20 69 73 20 74 | 72 75 65 20 74 68 65 6e |lag is t|rue then|
|00001f70| 20 76 65 72 69 66 79 46 | 69 65 6c 64 44 69 61 6c | verifyF|ieldDial|
|00001f80| 6f 67 20 22 41 75 74 68 | 6f 72 73 22 2c 6c 69 6e |og "Auth|ors",lin|
|00001f90| 65 20 78 20 6f 66 20 61 | 75 74 68 6f 72 4c 69 73 |e x of a|uthorLis|
|00001fa0| 74 2c 22 41 75 74 68 6f | 72 22 0d 65 6c 73 65 20 |t,"Autho|r".else |
|00001fb0| 61 64 64 54 6f 4c 69 73 | 74 20 22 41 75 74 68 6f |addToLis|t "Autho|
|00001fc0| 72 73 22 2c 6c 69 6e 65 | 20 78 20 6f 66 20 61 75 |rs",line| x of au|
|00001fd0| 74 68 6f 72 4c 69 73 74 | 0d 65 6e 64 20 69 66 0d |thorList|.end if.|
|00001fe0| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 20 69 |end repe|at.end i|
|00001ff0| 66 0d 65 6e 64 20 76 65 | 72 69 66 79 41 75 74 68 |f.end ve|rifyAuth|
|00002000| 6f 72 46 69 65 6c 64 0d | 0d 6f 6e 20 76 65 72 69 |orField.|.on veri|
|00002010| 66 79 4b 65 79 77 6f 72 | 64 73 46 69 65 6c 64 0d |fyKeywor|dsField.|
|00002020| 67 6c 6f 62 61 6c 20 76 | 65 72 69 66 79 46 6c 61 |global v|erifyFla|
|00002030| 67 2c 63 6f 6e 66 69 72 | 6d 56 65 72 69 66 79 46 |g,confir|mVerifyF|
|00002040| 6c 61 67 2c 67 6c 6f 62 | 61 6c 4c 69 73 74 4e 61 |lag,glob|alListNa|
|00002050| 6d 65 2c 6c 6f 6f 70 46 | 6c 61 67 0d 70 75 74 20 |me,loopF|lag.put |
|00002060| 22 4b 65 79 77 6f 72 64 | 73 22 20 69 6e 74 6f 20 |"Keyword|s" into |
|00002070| 67 6c 6f 62 61 6c 4c 69 | 73 74 4e 61 6d 65 0d 69 |globalLi|stName.i|
|00002080| 66 20 6c 6f 6f 70 46 6c | 61 67 20 69 73 20 6e 6f |f loopFl|ag is no|
|00002090| 74 20 74 72 75 65 20 74 | 68 65 6e 0d 69 66 20 76 |t true t|hen.if v|
|000020a0| 65 72 69 66 79 46 6c 61 | 67 20 69 73 20 6e 6f 74 |erifyFla|g is not|
|000020b0| 20 74 72 75 65 20 74 68 | 65 6e 20 65 78 69 74 20 | true th|en exit |
|000020c0| 76 65 72 69 66 79 4b 65 | 79 77 6f 72 64 73 46 69 |verifyKe|ywordsFi|
|000020d0| 65 6c 64 0d 73 65 74 4c | 6f 63 6b 45 72 72 6f 72 |eld.setL|ockError|
|000020e0| 44 69 61 6c 6f 67 73 0d | 70 75 74 20 74 72 75 65 |Dialogs.|put true|
|000020f0| 20 69 6e 74 6f 20 63 6f | 6e 66 69 72 6d 56 65 72 | into co|nfirmVer|
|00002100| 69 66 79 46 6c 61 67 0d | 65 6e 64 20 69 66 0d 70 |ifyFlag.|end if.p|
|00002110| 75 74 20 66 6c 64 20 22 | 4b 65 79 77 6f 72 64 73 |ut fld "|Keywords|
|00002120| 22 20 69 6e 74 6f 20 74 | 68 65 46 6c 64 0d 72 65 |" into t|heFld.re|
|00002130| 70 65 61 74 20 77 69 74 | 68 20 78 20 3d 20 31 20 |peat wit|h x = 1 |
|00002140| 74 6f 20 28 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |to (numb|er of li|
|00002150| 6e 65 73 20 69 6e 20 74 | 68 65 46 6c 64 29 0d 70 |nes in t|heFld).p|
|00002160| 75 74 20 6c 69 6e 65 20 | 78 20 6f 66 20 74 68 65 |ut line |x of the|
|00002170| 46 6c 64 20 69 6e 74 6f | 20 74 68 65 4b 65 79 77 |Fld into| theKeyw|
|00002180| 6f 72 64 0d 69 66 20 69 | 73 41 62 62 72 65 76 28 |ord.if i|sAbbrev(|
|00002190| 74 68 65 4b 65 79 77 6f | 72 64 29 20 74 68 65 6e |theKeywo|rd) then|
|000021a0| 0d 69 66 20 6e 6f 74 20 | 69 73 56 61 6c 69 64 41 |.if not |isValidA|
|000021b0| 62 62 72 65 76 28 74 68 | 65 4b 65 79 77 6f 72 64 |bbrev(th|eKeyword|
|000021c0| 29 20 74 68 65 6e 0d 62 | 61 64 41 62 62 72 65 76 |) then.b|adAbbrev|
|000021d0| 44 69 61 6c 6f 67 20 74 | 68 65 4b 65 79 77 6f 72 |Dialog t|heKeywor|
|000021e0| 64 0d 65 78 69 74 56 65 | 72 69 66 79 4c 6f 6f 70 |d.exitVe|rifyLoop|
|000021f0| 0d 73 65 6c 65 63 74 20 | 6c 69 6e 65 20 78 20 6f |.select |line x o|
|00002200| 66 20 66 6c 64 20 22 4b | 65 79 77 6f 72 64 73 22 |f fld "K|eywords"|
|00002210| 0d 65 78 69 74 20 74 6f | 20 48 79 70 65 72 43 61 |.exit to| HyperCa|
|00002220| 72 64 0d 65 6c 73 65 0d | 69 66 20 6e 6f 74 20 76 |rd.else.|if not v|
|00002230| 65 72 69 66 79 41 62 62 | 72 65 76 28 22 4b 65 79 |erifyAbb|rev("Key|
|00002240| 77 6f 72 64 73 22 2c 74 | 68 65 4b 65 79 77 6f 72 |words",t|heKeywor|
|00002250| 64 29 20 74 68 65 6e 0d | 69 66 20 63 6f 6e 66 69 |d) then.|if confi|
|00002260| 72 6d 56 65 72 69 66 79 | 46 6c 61 67 20 69 73 20 |rmVerify|Flag is |
|00002270| 74 72 75 65 20 74 68 65 | 6e 20 76 65 72 69 66 79 |true the|n verify|
|00002280| 41 62 62 72 65 76 44 69 | 61 6c 6f 67 20 22 4b 65 |AbbrevDi|alog "Ke|
|00002290| 79 77 6f 72 64 73 22 2c | 74 68 65 4b 65 79 77 6f |ywords",|theKeywo|
|000022a0| 72 64 2c 22 4b 65 79 77 | 6f 72 64 73 22 0d 65 6c |rd,"Keyw|ords".el|
|000022b0| 73 65 20 61 64 64 41 62 | 62 72 65 76 54 6f 4c 69 |se addAb|brevToLi|
|000022c0| 73 74 20 22 4b 65 79 77 | 6f 72 64 73 22 2c 74 68 |st "Keyw|ords",th|
|000022d0| 65 4b 65 79 77 6f 72 64 | 2c 22 4b 65 79 77 6f 72 |eKeyword|,"Keywor|
|000022e0| 64 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |d".end i|f.end if|
|000022f0| 0d 65 6c 73 65 0d 69 66 | 20 6e 6f 74 20 76 65 72 |.else.if| not ver|
|00002300| 69 66 79 46 69 65 6c 64 | 43 6f 6e 74 65 6e 74 73 |ifyField|Contents|
|00002310| 28 22 4b 65 79 77 6f 72 | 64 73 22 2c 74 68 65 4b |("Keywor|ds",theK|
|00002320| 65 79 77 6f 72 64 29 20 | 74 68 65 6e 0d 69 66 20 |eyword) |then.if |
|00002330| 63 6f 6e 66 69 72 6d 56 | 65 72 69 66 79 46 6c 61 |confirmV|erifyFla|
|00002340| 67 20 69 73 20 74 72 75 | 65 20 74 68 65 6e 20 76 |g is tru|e then v|
|00002350| 65 72 69 66 79 46 69 65 | 6c 64 44 69 61 6c 6f 67 |erifyFie|ldDialog|
|00002360| 20 22 4b 65 79 77 6f 72 | 64 73 22 2c 74 68 65 4b | "Keywor|ds",theK|
|00002370| 65 79 77 6f 72 64 2c 22 | 4b 65 79 77 6f 72 64 73 |eyword,"|Keywords|
|00002380| 22 0d 65 6c 73 65 20 61 | 64 64 54 6f 4c 69 73 74 |".else a|ddToList|
|00002390| 20 22 4b 65 79 77 6f 72 | 64 73 22 2c 74 68 65 4b | "Keywor|ds",theK|
|000023a0| 65 79 77 6f 72 64 0d 65 | 6e 64 20 69 66 0d 65 6e |eyword.e|nd if.en|
|000023b0| 64 20 69 66 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |d if.end| repeat.|
|000023c0| 65 6e 64 20 76 65 72 69 | 66 79 4b 65 79 77 6f 72 |end veri|fyKeywor|
|000023d0| 64 73 46 69 65 6c 64 0d | 0d 66 75 6e 63 74 69 6f |dsField.|.functio|
|000023e0| 6e 20 69 73 41 62 62 72 | 65 76 20 74 68 65 46 6c |n isAbbr|ev theFl|
|000023f0| 64 0d 69 66 20 74 68 65 | 20 66 69 72 73 74 20 63 |d.if the| first c|
|00002400| 68 61 72 20 6f 66 20 74 | 68 65 46 6c 64 20 69 73 |har of t|heFld is|
|00002410| 20 22 2e 22 20 74 68 65 | 6e 20 72 65 74 75 72 6e | "." the|n return|
|00002420| 20 74 72 75 65 0d 65 6c | 73 65 20 72 65 74 75 72 | true.el|se retur|
|00002430| 6e 20 66 61 6c 73 65 0d | 65 6e 64 20 69 73 41 62 |n false.|end isAb|
|00002440| 62 72 65 76 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 69 |brev..fu|nction i|
|00002450| 73 56 61 6c 69 64 41 62 | 62 72 65 76 20 73 74 72 |sValidAb|brev str|
|00002460| 0d 69 66 20 63 68 61 72 | 54 6f 4e 75 6d 28 63 68 |.if char|ToNum(ch|
|00002470| 61 72 20 32 20 6f 66 20 | 73 74 72 29 20 3c 20 36 |ar 2 of |str) < 6|
|00002480| 34 20 6f 72 20 63 68 61 | 72 54 6f 4e 75 6d 28 63 |4 or cha|rToNum(c|
|00002490| 68 61 72 20 32 20 6f 66 | 20 73 74 72 29 20 3e 20 |har 2 of| str) > |
|000024a0| 31 32 33 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |123 then| return |
|000024b0| 66 61 6c 73 65 0d 70 75 | 74 20 71 75 6f 74 65 26 |false.pu|t quote&|
|000024c0| 22 20 23 25 27 28 29 2c | 3d 7b 7d 22 20 69 6e 74 |" #%'(),|={}" int|
|000024d0| 6f 20 62 61 64 43 68 61 | 72 73 0d 72 65 70 65 61 |o badCha|rs.repea|
|000024e0| 74 20 77 69 74 68 20 78 | 20 3d 20 31 20 74 6f 20 |t with x| = 1 to |
|000024f0| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 73 20 |number o|f chars |
|00002500| 69 6e 20 62 61 64 43 68 | 61 72 73 0d 69 66 20 73 |in badCh|ars.if s|
|00002510| 74 72 20 63 6f 6e 74 61 | 69 6e 73 20 63 68 61 72 |tr conta|ins char|
|00002520| 20 78 20 6f 66 20 62 61 | 64 43 68 61 72 73 20 74 | x of ba|dChars t|
|00002530| 68 65 6e 20 72 65 74 75 | 72 6e 20 66 61 6c 73 65 |hen retu|rn false|
|00002540| 0d 65 6c 73 65 20 6e 65 | 78 74 20 72 65 70 65 61 |.else ne|xt repea|
|00002550| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 72 65 74 |t.end re|peat.ret|
|00002560| 75 72 6e 20 74 72 75 65 | 0d 65 6e 64 20 69 73 56 |urn true|.end isV|
|00002570| 61 6c 69 64 41 62 62 72 | 65 76 0d 0d 6f 6e 20 62 |alidAbbr|ev..on b|
|00002580| 61 64 41 62 62 72 65 76 | 44 69 61 6c 6f 67 20 74 |adAbbrev|Dialog t|
|00002590| 68 65 46 6c 64 0d 67 6c | 6f 62 61 6c 20 6c 6f 6f |heFld.gl|obal loo|
|000025a0| 70 46 6c 61 67 0d 69 66 | 20 6c 6f 6f 70 46 6c 61 |pFlag.if| loopFla|
|000025b0| 67 20 69 73 20 74 72 75 | 65 20 74 68 65 6e 0d 73 |g is tru|e then.s|
|000025c0| 65 6e 64 20 6f 70 65 6e | 42 61 63 6b 67 72 6f 75 |end open|Backgrou|
|000025d0| 6e 64 20 74 6f 20 74 68 | 69 73 20 62 67 0d 73 65 |nd to th|is bg.se|
|000025e0| 6e 64 20 6f 70 65 6e 43 | 61 72 64 20 74 6f 20 74 |nd openC|ard to t|
|000025f0| 68 69 73 20 62 67 0d 75 | 6e 6c 6f 63 6b 20 73 63 |his bg.u|nlock sc|
|00002600| 72 65 65 6e 0d 65 6e 64 | 20 69 66 0d 62 65 65 70 |reen.end| if.beep|
|00002610| 0d 61 6e 73 77 65 72 20 | 22 42 61 64 20 61 62 62 |.answer |"Bad abb|
|00002620| 72 65 76 69 61 74 69 6f | 6e 3a 20 22 26 26 74 68 |reviatio|n: "&&th|
|00002630| 65 46 6c 64 26 72 65 74 | 75 72 6e 26 22 41 6e 20 |eFld&ret|urn&"An |
|00002640| 61 62 62 72 65 76 69 61 | 74 69 6f 6e 20 73 74 61 |abbrevia|tion sta|
|00002650| 72 74 73 20 77 69 74 68 | 20 61 20 6c 65 74 74 65 |rts with| a lette|
|00002660| 72 22 c2 0d 26 26 22 61 | 6e 64 20 64 6f 65 73 20 |r"..&&"a|nd does |
|00002670| 6e 6f 74 20 63 6f 6e 74 | 61 69 6e 20 61 20 73 70 |not cont|ain a sp|
|00002680| 61 63 65 20 6f 72 20 61 | 6e 79 20 6f 66 20 74 68 |ace or a|ny of th|
|00002690| 65 73 65 20 69 6c 6c 65 | 67 61 6c 20 63 68 61 72 |ese ille|gal char|
|000026a0| 61 63 74 65 72 73 3a 22 | 26 72 65 74 75 72 6e 26 |acters:"|&return&|
|000026b0| 22 20 20 20 20 20 22 c2 | 0d 26 71 75 6f 74 65 26 |"     ".|.&quote&|
|000026c0| 26 22 23 22 26 26 22 25 | 22 26 26 22 27 22 26 26 |&"#"&&"%|"&&"'"&&|
|000026d0| 22 28 22 26 26 22 29 22 | 26 26 22 2c 22 26 26 22 |"("&&")"|&&","&&"|
|000026e0| 3d 22 26 26 22 7b 22 26 | 26 22 7d 22 26 72 65 74 |="&&"{"&|&"}"&ret|
|000026f0| 75 72 6e 26 22 50 6c 65 | 61 73 65 20 74 72 79 20 |urn&"Ple|ase try |
|00002700| 61 67 61 69 6e 2e 22 0d | 65 6e 64 20 62 61 64 41 |again.".|end badA|
|00002710| 62 62 72 65 76 44 69 61 | 6c 6f 67 0d 0d 66 75 6e |bbrevDia|log..fun|
|00002720| 63 74 69 6f 6e 20 76 65 | 72 69 66 79 41 62 62 72 |ction ve|rifyAbbr|
|00002730| 65 76 20 6c 69 73 74 4e | 61 6d 65 2c 74 68 65 41 |ev listN|ame,theA|
|00002740| 62 62 72 65 76 0d 67 6c | 6f 62 61 6c 20 6e 6f 41 |bbrev.gl|obal noA|
|00002750| 64 64 0d 69 66 20 72 65 | 74 75 72 6e 26 74 68 65 |dd.if re|turn&the|
|00002760| 41 62 62 72 65 76 26 22 | 3d 22 20 69 73 20 69 6e |Abbrev&"|=" is in|
|00002770| 20 72 65 74 75 72 6e 26 | 28 63 64 20 66 6c 64 20 | return&|(cd fld |
|00002780| 6c 69 73 74 4e 61 6d 65 | 20 6f 66 20 63 64 20 6c |listName| of cd l|
|00002790| 69 73 74 4e 61 6d 65 29 | 26 72 65 74 75 72 6e 26 |istName)|&return&|
|000027a0| 6e 6f 41 64 64 0d 74 68 | 65 6e 20 72 65 74 75 72 |noAdd.th|en retur|
|000027b0| 6e 20 74 72 75 65 0d 65 | 6c 73 65 20 72 65 74 75 |n true.e|lse retu|
|000027c0| 72 6e 20 66 61 6c 73 65 | 0d 65 6e 64 20 76 65 72 |rn false|.end ver|
|000027d0| 69 66 79 41 62 62 72 65 | 76 0d 0d 6f 6e 20 76 65 |ifyAbbre|v..on ve|
|000027e0| 72 69 66 79 41 62 62 72 | 65 76 44 69 61 6c 6f 67 |rifyAbbr|evDialog|
|000027f0| 20 6c 69 73 74 6e 61 6d | 65 2c 74 68 65 41 62 62 | listnam|e,theAbb|
|00002800| 72 65 76 2c 66 6c 64 4e | 61 6d 65 0d 67 6c 6f 62 |rev,fldN|ame.glob|
|00002810| 61 6c 20 6c 6f 6f 70 46 | 6c 61 67 2c 6e 6f 41 64 |al loopF|lag,noAd|
|00002820| 64 0d 69 66 20 6c 6f 6f | 70 46 6c 61 67 20 69 73 |d.if loo|pFlag is|
|00002830| 20 74 72 75 65 20 74 68 | 65 6e 0d 73 65 6e 64 20 | true th|en.send |
|00002840| 6f 70 65 6e 43 61 72 64 | 20 74 6f 20 74 68 69 73 |openCard| to this|
|00002850| 20 62 67 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | bg.unlo|ck scree|
|00002860| 6e 0d 65 6e 64 20 69 66 | 0d 62 65 65 70 0d 61 6e |n.end if|.beep.an|
|00002870| 73 77 65 72 20 22 54 68 | 65 20 61 62 62 72 65 76 |swer "Th|e abbrev|
|00002880| 69 61 74 69 6f 6e 20 d2 | 22 26 74 68 65 41 62 62 |iation .|"&theAbb|
|00002890| 72 65 76 26 22 d3 20 69 | 73 20 6e 6f 74 20 69 6e |rev&". i|s not in|
|000028a0| 20 74 68 65 20 61 75 74 | 68 6f 72 69 74 79 20 6c | the aut|hority l|
|000028b0| 69 73 74 20 66 6f 72 20 | 74 68 65 22 26 26 66 6c |ist for |the"&&fl|
|000028c0| 64 4e 61 6d 65 c2 0d 26 | 26 22 66 69 65 6c 64 d1 |dName..&|&"field.|
|000028d0| d1 61 64 64 20 69 74 3f | 22 20 77 69 74 68 20 22 |.add it?|" with "|
|000028e0| 45 64 69 74 20 6c 69 73 | 74 22 20 6f 72 20 22 4e |Edit lis|t" or "N|
|000028f0| 6f 22 20 6f 72 20 22 41 | 64 64 22 0d 69 66 20 69 |o" or "A|dd".if i|
|00002900| 74 20 69 73 20 22 41 64 | 64 22 20 74 68 65 6e 0d |t is "Ad|d" then.|
|00002910| 61 64 64 41 62 62 72 65 | 76 54 6f 4c 69 73 74 20 |addAbbre|vToList |
|00002920| 6c 69 73 74 4e 61 6d 65 | 2c 74 68 65 41 62 62 72 |listName|,theAbbr|
|00002930| 65 76 2c 66 6c 64 4e 61 | 6d 65 0d 69 66 20 6c 6f |ev,fldNa|me.if lo|
|00002940| 6f 70 46 6c 61 67 20 69 | 73 20 74 72 75 65 20 74 |opFlag i|s true t|
|00002950| 68 65 6e 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |hen.lock| screen.|
|00002960| 65 6e 64 20 69 66 0d 65 | 6c 73 65 20 69 66 20 69 |end if.e|lse if i|
|00002970| 74 20 69 73 20 22 45 64 | 69 74 20 6c 69 73 74 22 |t is "Ed|it list"|
|00002980| 20 74 68 65 6e 0d 65 78 | 69 74 56 65 72 69 66 79 | then.ex|itVerify|
|00002990| 4c 6f 6f 70 0d 64 6f 4c | 6f 63 6b 20 66 61 6c 73 |Loop.doL|ock fals|
|000029a0| 65 0d 70 75 73 68 20 63 | 64 0d 76 69 73 75 61 6c |e.push c|d.visual|
|000029b0| 20 7a 6f 6f 6d 20 6f 70 | 65 6e 0d 67 6f 20 63 64 | zoom op|en.go cd|
|000029c0| 20 6c 69 73 74 4e 61 6d | 65 20 6f 66 20 62 67 20 | listNam|e of bg |
|000029d0| 22 48 42 20 55 74 69 6c | 69 74 79 20 43 61 72 64 |"HB Util|ity Card|
|000029e0| 73 22 0d 74 65 73 74 45 | 72 72 6f 72 20 74 68 65 |s".testE|rror the|
|000029f0| 20 72 65 73 75 6c 74 2c | 22 45 72 72 6f 72 3a 20 | result,|"Error: |
|00002a00| 63 61 6e 27 74 20 66 69 | 6e 64 20 63 61 72 64 20 |can't fi|nd card |
|00002a10| d2 22 26 6c 69 73 74 4e | 61 6d 65 26 22 d3 2e 22 |."&listN|ame&".."|
|00002a20| 0d 73 65 6c 65 63 74 20 | 62 65 66 6f 72 65 20 74 |.select |before t|
|00002a30| 65 78 74 20 6f 66 20 63 | 64 20 66 6c 64 20 6c 69 |ext of c|d fld li|
|00002a40| 73 74 4e 61 6d 65 0d 65 | 78 69 74 20 74 6f 20 48 |stName.e|xit to H|
|00002a50| 79 70 65 72 63 61 72 64 | 0d 65 6c 73 65 0d 69 66 |ypercard|.else.if|
|00002a60| 20 6c 6f 6f 70 46 6c 61 | 67 20 69 73 20 74 72 75 | loopFla|g is tru|
|00002a70| 65 20 74 68 65 6e 0d 73 | 65 74 20 63 75 72 73 6f |e then.s|et curso|
|00002a80| 72 20 74 6f 20 77 61 74 | 63 68 0d 6c 6f 63 6b 20 |r to wat|ch.lock |
|00002a90| 73 63 72 65 65 6e 0d 70 | 75 74 20 74 68 65 41 62 |screen.p|ut theAb|
|00002aa0| 62 72 65 76 26 22 3d 22 | 26 72 65 74 75 72 6e 20 |brev&"="|&return |
|00002ab0| 61 66 74 65 72 20 6e 6f | 41 64 64 0d 65 6e 64 20 |after no|Add.end |
|00002ac0| 69 66 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 76 65 |if.end i|f.end ve|
|00002ad0| 72 69 66 79 41 62 62 72 | 65 76 44 69 61 6c 6f 67 |rifyAbbr|evDialog|
|00002ae0| 0d 0d 6f 6e 20 61 64 64 | 41 62 62 72 65 76 54 6f |..on add|AbbrevTo|
|00002af0| 4c 69 73 74 20 6c 69 73 | 74 4e 61 6d 65 2c 74 68 |List lis|tName,th|
|00002b00| 65 41 62 62 72 65 76 2c | 66 6c 64 4e 61 6d 65 0d |eAbbrev,|fldName.|
|00002b10| 67 6c 6f 62 61 6c 20 6f | 70 65 6e 44 65 6c 69 6d |global o|penDelim|
|00002b20| 2c 63 6c 6f 73 65 44 65 | 6c 69 6d 2c 63 6f 6e 66 |,closeDe|lim,conf|
|00002b30| 69 72 6d 56 65 72 69 66 | 79 46 6c 61 67 2c 6c 6f |irmVerif|yFlag,lo|
|00002b40| 6f 70 46 6c 61 67 2c 6e | 6f 41 64 64 0d 69 66 20 |opFlag,n|oAdd.if |
|00002b50| 6c 6f 6f 70 46 6c 61 67 | 20 69 73 20 74 72 75 65 |loopFlag| is true|
|00002b60| 20 61 6e 64 20 63 6f 6e | 66 69 72 6d 56 65 72 69 | and con|firmVeri|
|00002b70| 66 79 46 6c 61 67 20 69 | 73 20 66 61 6c 73 65 20 |fyFlag i|s false |
|00002b80| 74 68 65 6e 0d 62 65 65 | 70 0d 73 65 6e 64 20 6f |then.bee|p.send o|
|00002b90| 70 65 6e 43 61 72 64 20 | 74 6f 20 74 68 69 73 20 |penCard |to this |
|00002ba0| 62 67 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |bg.unloc|k screen|
|00002bb0| 0d 65 6e 64 20 69 66 0d | 61 73 6b 20 22 57 68 61 |.end if.|ask "Wha|
|00002bc0| 74 22 26 26 66 6c 64 4e | 61 6d 65 26 26 22 64 6f |t"&&fldN|ame&&"do|
|00002bd0| 65 73 20 d2 22 26 74 68 | 65 41 62 62 72 65 76 26 |es ."&th|eAbbrev&|
|00002be0| 22 d3 20 73 74 61 6e 64 | 20 66 6f 72 3f 22 20 77 |". stand| for?" w|
|00002bf0| 69 74 68 20 22 54 79 70 | 65 20 73 6f 6d 65 74 68 |ith "Typ|e someth|
|00002c00| 69 6e 67 20 68 65 72 65 | 22 0d 69 66 20 6c 6f 6f |ing here|".if loo|
|00002c10| 70 46 6c 61 67 20 69 73 | 20 74 72 75 65 20 61 6e |pFlag is| true an|
|00002c20| 64 20 63 6f 6e 66 69 72 | 6d 56 65 72 69 66 79 46 |d confir|mVerifyF|
|00002c30| 6c 61 67 20 69 73 20 66 | 61 6c 73 65 20 74 68 65 |lag is f|alse the|
|00002c40| 6e 20 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 69 66 |n lock s|creen.if|
|00002c50| 20 69 74 20 69 73 20 22 | 22 20 6f 72 20 69 74 20 | it is "|" or it |
|00002c60| 69 73 20 22 54 79 70 65 | 20 73 6f 6d 65 74 68 69 |is "Type| somethi|
|00002c70| 6e 67 20 68 65 72 65 22 | 20 74 68 65 6e 0d 70 75 |ng here"| then.pu|
|00002c80| 74 20 74 68 65 41 62 62 | 72 65 76 26 22 3d 22 26 |t theAbb|rev&"="&|
|00002c90| 72 65 74 75 72 6e 20 61 | 66 74 65 72 20 6e 6f 41 |return a|fter noA|
|00002ca0| 64 64 0d 65 78 69 74 20 | 61 64 64 41 62 62 72 65 |dd.exit |addAbbre|
|00002cb0| 76 54 6f 4c 69 73 74 0d | 65 6e 64 20 69 66 0d 64 |vToList.|end if.d|
|00002cc0| 69 73 61 6c 6c 6f 77 69 | 6e 74 65 72 72 75 70 74 |isallowi|nterrupt|
|00002cd0| 69 6f 6e 0d 70 75 74 20 | 69 74 20 69 6e 74 6f 20 |ion.put |it into |
|00002ce0| 74 68 65 53 74 72 69 6e | 67 0d 73 65 74 20 63 75 |theStrin|g.set cu|
|00002cf0| 72 73 6f 72 20 74 6f 20 | 77 61 74 63 68 0d 6c 6f |rsor to |watch.lo|
|00002d00| 63 6b 20 73 63 72 65 65 | 6e 0d 73 65 6e 64 20 63 |ck scree|n.send c|
|00002d10| 6c 6f 73 65 43 61 72 64 | 20 74 6f 20 74 68 69 73 |loseCard| to this|
|00002d20| 20 62 67 0d 70 75 73 68 | 20 63 64 0d 67 6f 20 63 | bg.push| cd.go c|
|00002d30| 64 20 6c 69 73 74 4e 61 | 6d 65 20 6f 66 20 62 67 |d listNa|me of bg|
|00002d40| 20 22 48 42 20 55 74 69 | 6c 69 74 79 20 43 61 72 | "HB Uti|lity Car|
|00002d50| 64 73 22 0d 74 65 73 74 | 45 72 72 6f 72 20 74 68 |ds".test|Error th|
|00002d60| 65 20 72 65 73 75 6c 74 | 2c 22 45 72 72 6f 72 3a |e result|,"Error:|
|00002d70| 20 63 61 6e 27 74 20 66 | 69 6e 64 20 63 61 72 64 | can't f|ind card|
|00002d80| 20 d2 22 26 6c 69 73 74 | 4e 61 6d 65 26 22 d3 2e | ."&list|Name&"..|
|00002d90| 22 0d 70 75 74 20 72 65 | 74 75 72 6e 26 74 68 65 |".put re|turn&the|
|00002da0| 41 62 62 72 65 76 26 22 | 3d 22 26 6f 70 65 6e 44 |Abbrev&"|="&openD|
|00002db0| 65 6c 69 6d 26 74 68 65 | 53 74 72 69 6e 67 26 63 |elim&the|String&c|
|00002dc0| 6c 6f 73 65 44 65 6c 69 | 6d 20 61 66 74 65 72 20 |loseDeli|m after |
|00002dd0| 63 64 20 66 6c 64 20 6c | 69 73 74 4e 61 6d 65 0d |cd fld l|istName.|
|00002de0| 69 66 20 6c 6f 6f 70 46 | 6c 61 67 20 69 73 20 6e |if loopF|lag is n|
|00002df0| 6f 74 20 74 72 75 65 20 | 74 68 65 6e 20 73 65 6e |ot true |then sen|
|00002e00| 64 20 63 6c 6f 73 65 46 | 69 65 6c 64 20 74 6f 20 |d closeF|ield to |
|00002e10| 63 64 20 66 6c 64 20 6c | 69 73 74 4e 61 6d 65 0d |cd fld l|istName.|
|00002e20| 70 6f 70 20 63 64 0d 75 | 6e 6c 6f 63 6b 20 73 63 |pop cd.u|nlock sc|
|00002e30| 72 65 65 6e 0d 65 6e 64 | 20 61 64 64 41 62 62 72 |reen.end| addAbbr|
|00002e40| 65 76 54 6f 4c 69 73 74 | 0d 0d 66 75 6e 63 74 69 |evToList|..functi|
|00002e50| 6f 6e 20 76 65 72 69 66 | 79 46 69 65 6c 64 43 6f |on verif|yFieldCo|
|00002e60| 6e 74 65 6e 74 73 20 6c | 69 73 74 4e 61 6d 65 2c |ntents l|istName,|
|00002e70| 74 68 65 46 6c 64 0d 67 | 6c 6f 62 61 6c 20 6e 6f |theFld.g|lobal no|
|00002e80| 41 64 64 0d 69 66 20 72 | 65 74 75 72 6e 26 74 68 |Add.if r|eturn&th|
|00002e90| 65 46 6c 64 26 72 65 74 | 75 72 6e 20 69 73 20 69 |eFld&ret|urn is i|
|00002ea0| 6e 20 72 65 74 75 72 6e | 26 28 63 64 20 66 6c 64 |n return|&(cd fld|
|00002eb0| 20 6c 69 73 74 4e 61 6d | 65 20 6f 66 20 63 64 20 | listNam|e of cd |
|00002ec0| 6c 69 73 74 4e 61 6d 65 | 29 26 72 65 74 75 72 6e |listName|)&return|
|00002ed0| 26 6e 6f 41 64 64 0d 74 | 68 65 6e 20 72 65 74 75 |&noAdd.t|hen retu|
|00002ee0| 72 6e 20 74 72 75 65 0d | 65 6c 73 65 20 72 65 74 |rn true.|else ret|
|00002ef0| 75 72 6e 20 66 61 6c 73 | 65 0d 65 6e 64 20 76 65 |urn fals|e.end ve|
|00002f00| 72 69 66 79 46 69 65 6c | 64 43 6f 6e 74 65 6e 74 |rifyFiel|dContent|
|00002f10| 73 0d 0d 6f 6e 20 76 65 | 72 69 66 79 46 69 65 6c |s..on ve|rifyFiel|
|00002f20| 64 44 69 61 6c 6f 67 20 | 6c 69 73 74 4e 61 6d 65 |dDialog |listName|
|00002f30| 2c 74 68 65 46 6c 64 2c | 66 6c 64 4e 61 6d 65 0d |,theFld,|fldName.|
|00002f40| 67 6c 6f 62 61 6c 20 6c | 6f 6f 70 46 6c 61 67 2c |global l|oopFlag,|
|00002f50| 6e 6f 41 64 64 0d 69 66 | 20 6c 6f 6f 70 46 6c 61 |noAdd.if| loopFla|
|00002f60| 67 20 69 73 20 74 72 75 | 65 20 74 68 65 6e 0d 73 |g is tru|e then.s|
|00002f70| 65 6e 64 20 6f 70 65 6e | 43 61 72 64 20 74 6f 20 |end open|Card to |
|00002f80| 74 68 69 73 20 62 67 0d | 75 6e 6c 6f 63 6b 20 73 |this bg.|unlock s|
|00002f90| 63 72 65 65 6e 0d 65 6e | 64 20 69 66 0d 62 65 65 |creen.en|d if.bee|
|00002fa0| 70 0d 61 6e 73 77 65 72 | 20 22 d2 22 26 74 68 65 |p.answer| "."&the|
|00002fb0| 46 6c 64 26 22 d3 20 69 | 73 20 6e 6f 74 20 69 6e |Fld&". i|s not in|
|00002fc0| 20 74 68 65 20 61 75 74 | 68 6f 72 69 74 79 20 6c | the aut|hority l|
|00002fd0| 69 73 74 20 66 6f 72 20 | 74 68 65 22 26 26 66 6c |ist for |the"&&fl|
|00002fe0| 64 4e 61 6d 65 26 26 22 | 66 69 65 6c 64 d1 d1 61 |dName&&"|field..a|
|00002ff0| 64 64 20 69 74 3f 22 c2 | 0d 77 69 74 68 20 22 45 |dd it?".|.with "E|
|00003000| 64 69 74 20 6c 69 73 74 | 22 20 6f 72 20 22 4e 6f |dit list|" or "No|
|00003010| 22 20 6f 72 20 22 41 64 | 64 22 0d 69 66 20 69 74 |" or "Ad|d".if it|
|00003020| 20 69 73 20 22 41 64 64 | 22 20 74 68 65 6e 0d 61 | is "Add|" then.a|
|00003030| 64 64 54 6f 4c 69 73 74 | 20 6c 69 73 74 4e 61 6d |ddToList| listNam|
|00003040| 65 2c 74 68 65 46 6c 64 | 0d 69 66 20 6c 6f 6f 70 |e,theFld|.if loop|
|00003050| 46 6c 61 67 20 69 73 20 | 74 72 75 65 20 74 68 65 |Flag is |true the|
|00003060| 6e 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |n.lock s|creen.en|
|00003070| 64 20 69 66 0d 65 6c 73 | 65 20 69 66 20 69 74 20 |d if.els|e if it |
|00003080| 69 73 20 22 45 64 69 74 | 20 6c 69 73 74 22 20 74 |is "Edit| list" t|
|00003090| 68 65 6e 0d 65 78 69 74 | 56 65 72 69 66 79 4c 6f |hen.exit|VerifyLo|
|000030a0| 6f 70 0d 64 6f 4c 6f 63 | 6b 20 66 61 6c 73 65 0d |op.doLoc|k false.|
|000030b0| 70 75 73 68 20 63 64 0d | 76 69 73 75 61 6c 20 7a |push cd.|visual z|
|000030c0| 6f 6f 6d 20 6f 70 65 6e | 0d 67 6f 20 63 64 20 6c |oom open|.go cd l|
|000030d0| 69 73 74 4e 61 6d 65 20 | 6f 66 20 62 67 20 22 48 |istName |of bg "H|
|000030e0| 42 20 55 74 69 6c 69 74 | 79 20 43 61 72 64 73 22 |B Utilit|y Cards"|
|000030f0| 0d 74 65 73 74 45 72 72 | 6f 72 20 74 68 65 20 72 |.testErr|or the r|
|00003100| 65 73 75 6c 74 2c 22 45 | 72 72 6f 72 3a 20 63 61 |esult,"E|rror: ca|
|00003110| 6e 27 74 20 66 69 6e 64 | 20 63 61 72 64 20 d2 22 |n't find| card ."|
|00003120| 26 6c 69 73 74 4e 61 6d | 65 26 22 d3 2e 22 0d 73 |&listNam|e&"..".s|
|00003130| 65 6c 65 63 74 20 62 65 | 66 6f 72 65 20 74 65 78 |elect be|fore tex|
|00003140| 74 20 6f 66 20 63 64 20 | 66 6c 64 20 6c 69 73 74 |t of cd |fld list|
|00003150| 4e 61 6d 65 0d 65 78 69 | 74 20 74 6f 20 48 79 70 |Name.exi|t to Hyp|
|00003160| 65 72 63 61 72 64 0d 65 | 6c 73 65 0d 69 66 20 6c |ercard.e|lse.if l|
|00003170| 6f 6f 70 46 6c 61 67 20 | 69 73 20 74 72 75 65 20 |oopFlag |is true |
|00003180| 74 68 65 6e 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |then.set| cursor |
|00003190| 74 6f 20 77 61 74 63 68 | 0d 6c 6f 63 6b 20 73 63 |to watch|.lock sc|
|000031a0| 72 65 65 6e 0d 70 75 74 | 20 74 68 65 46 6c 64 26 |reen.put| theFld&|
|000031b0| 72 65 74 75 72 6e 20 61 | 66 74 65 72 20 6e 6f 41 |return a|fter noA|
|000031c0| 64 64 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |dd.end i|f.end if|
|000031d0| 0d 65 6e 64 20 76 65 72 | 69 66 79 46 69 65 6c 64 |.end ver|ifyField|
|000031e0| 44 69 61 6c 6f 67 0d 0d | 6f 6e 20 61 64 64 54 6f |Dialog..|on addTo|
|000031f0| 4c 69 73 74 20 6c 69 73 | 74 4e 61 6d 65 2c 74 68 |List lis|tName,th|
|00003200| 65 46 6c 64 0d 67 6c 6f | 62 61 6c 20 6c 6f 6f 70 |eFld.glo|bal loop|
|00003210| 46 6c 61 67 0d 64 69 73 | 61 6c 6c 6f 77 69 6e 74 |Flag.dis|allowint|
|00003220| 65 72 72 75 70 74 69 6f | 6e 0d 73 65 74 20 63 75 |erruptio|n.set cu|
|00003230| 72 73 6f 72 20 74 6f 20 | 77 61 74 63 68 0d 6c 6f |rsor to |watch.lo|
|00003240| 63 6b 20 73 63 72 65 65 | 6e 0d 73 65 6e 64 20 63 |ck scree|n.send c|
|00003250| 6c 6f 73 65 43 61 72 64 | 20 74 6f 20 74 68 69 73 |loseCard| to this|
|00003260| 20 62 67 0d 70 75 73 68 | 20 63 64 0d 67 6f 20 63 | bg.push| cd.go c|
|00003270| 64 20 6c 69 73 74 4e 61 | 6d 65 20 6f 66 20 62 67 |d listNa|me of bg|
|00003280| 20 22 48 42 20 55 74 69 | 6c 69 74 79 20 43 61 72 | "HB Uti|lity Car|
|00003290| 64 73 22 0d 74 65 73 74 | 45 72 72 6f 72 20 74 68 |ds".test|Error th|
|000032a0| 65 20 72 65 73 75 6c 74 | 2c 22 45 72 72 6f 72 3a |e result|,"Error:|
|000032b0| 20 63 61 6e 27 74 20 66 | 69 6e 64 20 63 61 72 64 | can't f|ind card|
|000032c0| 20 d2 22 26 6c 69 73 74 | 4e 61 6d 65 26 22 d3 2e | ."&list|Name&"..|
|000032d0| 22 0d 70 75 74 20 72 65 | 74 75 72 6e 26 74 68 65 |".put re|turn&the|
|000032e0| 46 6c 64 20 61 66 74 65 | 72 20 63 64 20 66 6c 64 |Fld afte|r cd fld|
|000032f0| 20 6c 69 73 74 4e 61 6d | 65 0d 69 66 20 6c 6f 6f | listNam|e.if loo|
|00003300| 70 46 6c 61 67 20 69 73 | 20 6e 6f 74 20 74 72 75 |pFlag is| not tru|
|00003310| 65 20 74 68 65 6e 20 73 | 65 6e 64 20 63 6c 6f 73 |e then s|end clos|
|00003320| 65 46 69 65 6c 64 20 74 | 6f 20 63 64 20 66 6c 64 |eField t|o cd fld|
|00003330| 20 6c 69 73 74 4e 61 6d | 65 0d 70 6f 70 20 63 64 | listNam|e.pop cd|
|00003340| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 65 |.unlock |screen.e|
|00003350| 6e 64 20 61 64 64 54 6f | 4c 69 73 74 0d 0d 0d 2d |nd addTo|List...-|
|00003360| 2d 20 45 78 70 6f 72 74 | 20 2d 2d 0d 0d 6f 6e 20 |- Export| --..on |
|00003370| 65 78 70 6f 72 74 43 61 | 72 64 73 0d 67 6c 6f 62 |exportCa|rds.glob|
|00003380| 61 6c 20 65 78 70 6f 72 | 74 46 69 6c 65 2c 6e 6f |al expor|tFile,no|
|00003390| 6e 42 69 62 54 65 58 46 | 69 65 6c 64 73 2c 6d 79 |nBibTeXF|ields,my|
|000033a0| 4e 6f 6e 42 69 62 54 65 | 58 46 69 65 6c 64 73 2c |NonBibTe|XFields,|
|000033b0| 6c 61 73 74 4e 6f 6e 42 | 69 62 54 65 58 46 69 65 |lastNonB|ibTeXFie|
|000033c0| 6c 64 2c 6f 70 65 6e 44 | 65 6c 69 6d 2c 63 6c 6f |ld,openD|elim,clo|
|000033d0| 73 65 44 65 6c 69 6d 0d | 73 65 74 4c 6f 63 6b 45 |seDelim.|setLockE|
|000033e0| 72 72 6f 72 44 69 61 6c | 6f 67 73 0d 63 6c 6f 73 |rrorDial|ogs.clos|
|000033f0| 65 57 69 6e 64 6f 77 73 | 20 22 41 6e 6e 6f 74 61 |eWindows| "Annota|
|00003400| 74 69 6f 6e 2c 55 73 65 | 72 20 46 69 65 6c 64 73 |tion,Use|r Fields|
|00003410| 22 0d 73 65 6e 64 20 22 | 73 6f 72 74 43 61 72 64 |".send "|sortCard|
|00003420| 73 20 74 72 75 65 22 20 | 74 6f 20 62 67 20 22 48 |s true" |to bg "H|
|00003430| 42 20 55 74 69 6c 69 74 | 79 20 43 61 72 64 73 22 |B Utilit|y Cards"|
|00003440| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 69 66 20 |.lock sc|reen.if |
|00003450| 65 78 70 6f 72 74 46 69 | 6c 65 20 69 73 20 65 6d |exportFi|le is em|
|00003460| 70 74 79 20 74 68 65 6e | 20 70 75 74 20 22 42 69 |pty then| put "Bi|
|00003470| 62 6c 69 6f 67 72 61 70 | 68 79 2e 62 69 62 22 20 |bliograp|hy.bib" |
|00003480| 69 6e 74 6f 20 65 78 70 | 6f 72 74 46 69 6c 65 0d |into exp|ortFile.|
|00003490| 65 6c 73 65 20 70 75 74 | 20 6c 61 73 74 43 68 75 |else put| lastChu|
|000034a0| 6e 6b 28 22 3a 22 2c 65 | 78 70 6f 72 74 46 69 6c |nk(":",e|xportFil|
|000034b0| 65 29 20 69 6e 74 6f 20 | 65 78 70 6f 72 74 46 69 |e) into |exportFi|
|000034c0| 6c 65 0d 61 6e 73 77 65 | 72 20 22 45 78 70 6f 72 |le.answe|r "Expor|
|000034d0| 74 20 77 68 69 63 68 20 | 63 61 72 64 73 3f 22 20 |t which |cards?" |
|000034e0| 77 69 74 68 20 22 43 61 | 6e 63 65 6c 22 20 6f 72 |with "Ca|ncel" or|
|000034f0| 20 22 4d 61 72 6b 65 64 | 22 20 6f 72 20 22 41 6c | "Marked|" or "Al|
|00003500| 6c 22 0d 69 66 20 69 74 | 20 69 73 20 22 43 61 6e |l".if it| is "Can|
|00003510| 63 65 6c 22 20 74 68 65 | 6e 20 65 78 69 74 20 65 |cel" the|n exit e|
|00003520| 78 70 6f 72 74 43 61 72 | 64 73 0d 70 75 74 20 69 |xportCar|ds.put i|
|00003530| 74 20 69 6e 74 6f 20 77 | 68 69 63 68 43 61 72 64 |t into w|hichCard|
|00003540| 73 0d 70 75 74 20 22 53 | 65 6c 65 63 74 20 6e 6f |s.put "S|elect no|
|00003550| 6e 2d 42 69 62 54 65 58 | 20 66 69 65 6c 64 73 20 |n-BibTeX| fields |
|00003560| 74 6f 20 65 78 70 6f 72 | 74 3a 22 20 69 6e 74 6f |to expor|t:" into|
|00003570| 20 70 72 6f 6d 70 74 0d | 67 65 74 20 73 68 6f 77 | prompt.|get show|
|00003580| 4c 69 73 74 28 6e 6f 6e | 42 69 62 54 65 58 46 69 |List(non|BibTeXFi|
|00003590| 65 6c 64 73 2c 70 72 6f | 6d 70 74 2c 74 72 75 65 |elds,pro|mpt,true|
|000035a0| 2c 74 72 75 65 2c 22 4f | 4b 2c 41 6c 6c 2c 4e 6f |,true,"O|K,All,No|
|000035b0| 6e 65 2c 43 61 6e 63 65 | 6c 22 2c 6c 61 73 74 4e |ne,Cance|l",lastN|
|000035c0| 6f 6e 42 69 62 54 65 58 | 46 69 65 6c 64 29 0d 69 |onBibTeX|Field).i|
|000035d0| 66 20 6c 69 6e 65 20 31 | 20 6f 66 20 69 74 20 69 |f line 1| of it i|
|000035e0| 73 20 22 43 61 6e 63 65 | 6c 22 20 74 68 65 6e 20 |s "Cance|l" then |
|000035f0| 65 78 69 74 20 65 78 70 | 6f 72 74 43 61 72 64 73 |exit exp|ortCards|
|00003600| 0d 65 6c 73 65 20 69 66 | 20 6c 69 6e 65 20 31 20 |.else if| line 1 |
|00003610| 6f 66 20 69 74 20 69 73 | 20 22 41 6c 6c 22 20 74 |of it is| "All" t|
|00003620| 68 65 6e 20 70 75 74 20 | 6e 6f 6e 42 69 62 54 65 |hen put |nonBibTe|
|00003630| 58 46 69 65 6c 64 73 20 | 69 6e 74 6f 20 6d 79 4e |XFields |into myN|
|00003640| 6f 6e 42 69 62 54 65 58 | 46 69 65 6c 64 73 0d 65 |onBibTeX|Fields.e|
|00003650| 6c 73 65 20 69 66 20 6c | 69 6e 65 20 31 20 6f 66 |lse if l|ine 1 of|
|00003660| 20 69 74 20 69 73 20 22 | 4e 6f 6e 65 22 20 6f 72 | it is "|None" or|
|00003670| 20 6c 69 6e 65 20 32 20 | 6f 66 20 69 74 20 69 73 | line 2 |of it is|
|00003680| 20 65 6d 70 74 79 20 74 | 68 65 6e 20 70 75 74 20 | empty t|hen put |
|00003690| 65 6d 70 74 79 20 69 6e | 74 6f 20 6d 79 4e 6f 6e |empty in|to myNon|
|000036a0| 42 69 62 54 65 58 46 69 | 65 6c 64 73 0d 65 6c 73 |BibTeXFi|elds.els|
|000036b0| 65 0d 70 75 74 20 74 68 | 65 20 66 69 72 73 74 20 |e.put th|e first |
|000036c0| 69 74 65 6d 20 69 6e 20 | 6c 69 6e 65 20 32 20 6f |item in |line 2 o|
|000036d0| 66 20 69 74 20 69 6e 74 | 6f 20 6c 61 73 74 4e 6f |f it int|o lastNo|
|000036e0| 6e 42 69 62 54 65 58 46 | 69 65 6c 64 0d 70 75 74 |nBibTeXF|ield.put|
|000036f0| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 6d 79 4e 6f | empty i|nto myNo|
|00003700| 6e 42 69 62 54 65 58 46 | 69 65 6c 64 73 0d 72 65 |nBibTeXF|ields.re|
|00003710| 70 65 61 74 20 77 69 74 | 68 20 78 20 3d 20 31 20 |peat wit|h x = 1 |
|00003720| 74 6f 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |to numbe|r of ite|
|00003730| 6d 73 20 69 6e 20 6c 69 | 6e 65 20 32 20 6f 66 20 |ms in li|ne 2 of |
|00003740| 69 74 0d 70 75 74 20 28 | 6c 69 6e 65 20 28 69 74 |it.put (|line (it|
|00003750| 65 6d 20 78 20 6f 66 20 | 6c 69 6e 65 20 32 20 6f |em x of |line 2 o|
|00003760| 66 20 69 74 29 20 6f 66 | 20 6e 6f 6e 42 69 62 54 |f it) of| nonBibT|
|00003770| 65 58 46 69 65 6c 64 73 | 29 26 72 65 74 75 72 6e |eXFields|)&return|
|00003780| 20 61 66 74 65 72 20 6d | 79 4e 6f 6e 42 69 62 54 | after m|yNonBibT|
|00003790| 65 58 46 69 65 6c 64 73 | 0d 65 6e 64 20 72 65 70 |eXFields|.end rep|
|000037a0| 65 61 74 0d 65 6e 64 20 | 69 66 0d 61 73 6b 20 66 |eat.end |if.ask f|
|000037b0| 69 6c 65 20 22 45 78 70 | 6f 72 74 20 63 61 72 64 |ile "Exp|ort card|
|000037c0| 73 20 74 6f 20 77 68 61 | 74 20 66 69 6c 65 3a 22 |s to wha|t file:"|
|000037d0| 20 77 69 74 68 20 65 78 | 70 6f 72 74 46 69 6c 65 | with ex|portFile|
|000037e0| 0d 69 66 20 69 74 20 69 | 73 20 65 6d 70 74 79 20 |.if it i|s empty |
|000037f0| 74 68 65 6e 20 65 78 69 | 74 20 65 78 70 6f 72 74 |then exi|t export|
|00003800| 43 61 72 64 73 0d 65 6c | 73 65 20 70 75 74 20 69 |Cards.el|se put i|
|00003810| 74 20 69 6e 74 6f 20 65 | 78 70 6f 72 74 46 69 6c |t into e|xportFil|
|00003820| 65 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |e.unlock| screen.|
|00003830| 64 69 73 61 6c 6c 6f 77 | 49 6e 74 65 72 72 75 70 |disallow|Interrup|
|00003840| 74 69 6f 6e 0d 64 6f 4c | 6f 63 6b 20 74 72 75 65 |tion.doL|ock true|
|00003850| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 77 |.set cur|sor to w|
|00003860| 61 74 63 68 0d 69 66 20 | 6f 70 65 6e 44 65 6c 69 |atch.if |openDeli|
|00003870| 6d 20 69 73 20 6e 6f 74 | 20 69 6e 20 71 75 6f 74 |m is not| in quot|
|00003880| 65 26 22 7b 22 20 74 68 | 65 6e 20 70 75 74 20 22 |e&"{" th|en put "|
|00003890| 7b 22 20 69 6e 74 6f 20 | 6f 70 65 6e 44 65 6c 69 |{" into |openDeli|
|000038a0| 6d 0d 69 66 20 63 6c 6f | 73 65 44 65 6c 69 6d 20 |m.if clo|seDelim |
|000038b0| 69 73 20 6e 6f 74 20 69 | 6e 20 71 75 6f 74 65 26 |is not i|n quote&|
|000038c0| 22 7d 22 20 74 68 65 6e | 20 70 75 74 20 22 7d 22 |"}" then| put "}"|
|000038d0| 20 69 6e 74 6f 20 63 6c | 6f 73 65 44 65 6c 69 6d | into cl|oseDelim|
|000038e0| 0d 69 66 20 77 68 69 63 | 68 43 61 72 64 73 20 69 |.if whic|hCards i|
|000038f0| 73 20 22 41 6c 6c 22 20 | 74 68 65 6e 20 65 78 70 |s "All" |then exp|
|00003900| 6f 72 74 41 6c 6c 43 61 | 72 64 73 0d 65 6c 73 65 |ortAllCa|rds.else|
|00003910| 20 69 66 20 77 68 69 63 | 68 43 61 72 64 73 20 69 | if whic|hCards i|
|00003920| 73 20 22 4d 61 72 6b 65 | 64 22 20 74 68 65 6e 20 |s "Marke|d" then |
|00003930| 65 78 70 6f 72 74 4d 61 | 72 6b 65 64 43 61 72 64 |exportMa|rkedCard|
|00003940| 73 0d 70 75 74 20 22 22 | 20 69 6e 74 6f 20 6d 73 |s.put ""| into ms|
|00003950| 67 0d 68 69 64 65 20 6d | 73 67 0d 64 6f 4c 6f 63 |g.hide m|sg.doLoc|
|00003960| 6b 20 66 61 6c 73 65 0d | 73 65 6e 64 20 6f 70 65 |k false.|send ope|
|00003970| 6e 42 61 63 6b 67 72 6f | 75 6e 64 20 74 6f 20 74 |nBackgro|und to t|
|00003980| 68 69 73 20 62 67 0d 73 | 65 6e 64 20 6f 70 65 6e |his bg.s|end open|
|00003990| 43 61 72 64 20 74 6f 20 | 74 68 69 73 20 62 67 0d |Card to |this bg.|
|000039a0| 61 6c 6c 6f 77 49 6e 74 | 65 72 72 75 70 74 69 6f |allowInt|erruptio|
|000039b0| 6e 0d 65 6e 64 20 65 78 | 70 6f 72 74 43 61 72 64 |n.end ex|portCard|
|000039c0| 73 0d 0d 6f 6e 20 65 78 | 70 6f 72 74 41 6c 6c 43 |s..on ex|portAllC|
|000039d0| 61 72 64 73 0d 67 6c 6f | 62 61 6c 20 65 78 70 6f |ards.glo|bal expo|
|000039e0| 72 74 46 69 6c 65 2c 65 | 78 70 61 6e 64 41 62 62 |rtFile,e|xpandAbb|
|000039f0| 72 65 76 73 0d 70 75 73 | 68 20 63 61 72 64 0d 70 |revs.pus|h card.p|
|00003a00| 75 74 20 6e 75 6d 42 69 | 62 43 64 73 28 29 20 69 |ut numBi|bCds() i|
|00003a10| 6e 74 6f 20 74 6f 74 61 | 6c 43 61 72 64 73 0d 69 |nto tota|lCards.i|
|00003a20| 66 20 74 6f 74 61 6c 43 | 61 72 64 73 3d 30 20 74 |f totalC|ards=0 t|
|00003a30| 68 65 6e 0d 62 65 65 70 | 0d 61 6e 73 77 65 72 20 |hen.beep|.answer |
|00003a40| 22 4e 6f 20 63 61 72 64 | 73 20 74 6f 20 65 78 70 |"No card|s to exp|
|00003a50| 6f 72 74 21 22 0d 65 78 | 69 74 20 65 78 70 6f 72 |ort!".ex|it expor|
|00003a60| 74 41 6c 6c 43 61 72 64 | 73 0d 65 6e 64 20 69 66 |tAllCard|s.end if|
|00003a70| 0d 63 6c 6f 73 65 57 69 | 6e 64 6f 77 73 20 22 50 |.closeWi|ndows "P|
|00003a80| 72 6f 6d 70 74 6f 69 64 | 22 0d 50 72 6f 6d 70 74 |romptoid|".Prompt|
|00003a90| 6f 69 64 20 22 45 78 70 | 6f 72 74 69 6e 67 2e 2e |oid "Exp|orting..|
|00003aa0| 2e 20 43 6c 69 63 6b 20 | 6d 6f 75 73 65 20 74 6f |. Click |mouse to|
|00003ab0| 20 73 74 6f 70 22 0d 74 | 65 73 74 45 72 72 6f 72 | stop".t|estError|
|00003ac0| 20 74 68 65 20 72 65 73 | 75 6c 74 0d 69 66 20 66 | the res|ult.if f|
|00003ad0| 69 6c 65 49 73 4f 70 65 | 6e 28 65 78 70 6f 72 74 |ileIsOpe|n(export|
|00003ae0| 46 69 6c 65 29 20 69 73 | 20 74 72 75 65 20 74 68 |File) is| true th|
|00003af0| 65 6e 20 63 6c 6f 73 65 | 20 66 69 6c 65 20 65 78 |en close| file ex|
|00003b00| 70 6f 72 74 46 69 6c 65 | 0d 6f 70 65 6e 20 66 69 |portFile|.open fi|
|00003b10| 6c 65 20 65 78 70 6f 72 | 74 46 69 6c 65 0d 77 72 |le expor|tFile.wr|
|00003b20| 69 74 65 20 22 25 25 46 | 69 6c 65 20 63 72 65 61 |ite "%%F|ile crea|
|00003b30| 74 65 64 20 6f 6e 22 26 | 26 74 68 65 20 6c 6f 6e |ted on"&|&the lon|
|00003b40| 67 20 64 61 74 65 26 26 | 22 61 74 22 26 26 74 68 |g date&&|"at"&&th|
|00003b50| 65 20 74 69 6d 65 26 72 | 65 74 75 72 6e 20 74 6f |e time&r|eturn to|
|00003b60| 20 66 69 6c 65 20 65 78 | 70 6f 72 74 46 69 6c 65 | file ex|portFile|
|00003b70| 0d 77 72 69 74 65 20 22 | 25 25 22 26 74 6f 74 61 |.write "|%%"&tota|
|00003b80| 6c 43 61 72 64 73 26 26 | 22 63 61 72 64 73 20 65 |lCards&&|"cards e|
|00003b90| 78 70 6f 72 74 65 64 20 | 66 72 6f 6d 22 26 26 6e |xported |from"&&n|
|00003ba0| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |ame of t|his stac|
|00003bb0| 6b 26 72 65 74 75 72 6e | 26 72 65 74 75 72 6e 20 |k&return|&return |
|00003bc0| 74 6f 20 66 69 6c 65 20 | 65 78 70 6f 72 74 46 69 |to file |exportFi|
|00003bd0| 6c 65 0d 69 66 20 65 78 | 70 61 6e 64 41 62 62 72 |le.if ex|pandAbbr|
|00003be0| 65 76 73 20 69 73 20 6e | 6f 74 20 74 72 75 65 20 |evs is n|ot true |
|00003bf0| 74 68 65 6e 20 65 78 70 | 6f 72 74 41 62 62 72 65 |then exp|ortAbbre|
|00003c00| 76 53 74 72 69 6e 67 73 | 0d 67 6f 20 73 65 63 6f |vStrings|.go seco|
|00003c10| 6e 64 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 63 |nd.repea|t with c|
|00003c20| 61 72 64 43 6f 75 6e 74 | 20 3d 20 31 20 74 6f 20 |ardCount| = 1 to |
|00003c30| 74 6f 74 61 6c 43 61 72 | 64 73 0d 69 66 20 74 68 |totalCar|ds.if th|
|00003c40| 65 20 6d 6f 75 73 65 43 | 6c 69 63 6b 20 74 68 65 |e mouseC|lick the|
|00003c50| 6e 0d 62 65 65 70 0d 61 | 6e 73 77 65 72 20 22 53 |n.beep.a|nswer "S|
|00003c60| 74 6f 70 20 65 78 70 6f | 72 74 69 6e 67 20 63 61 |top expo|rting ca|
|00003c70| 72 64 73 3f 22 20 77 69 | 74 68 20 22 59 65 73 22 |rds?" wi|th "Yes"|
|00003c80| 20 6f 72 20 22 4e 6f 22 | 0d 69 66 20 69 74 20 69 | or "No"|.if it i|
|00003c90| 73 20 22 59 65 73 22 20 | 74 68 65 6e 20 65 78 69 |s "Yes" |then exi|
|00003ca0| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |t repeat|.end if.|
|00003cb0| 70 75 74 20 22 45 78 70 | 6f 72 74 69 6e 67 20 63 |put "Exp|orting c|
|00003cc0| 61 72 64 22 26 26 63 61 | 72 64 43 6f 75 6e 74 26 |ard"&&ca|rdCount&|
|00003cd0| 26 22 6f 66 22 26 26 74 | 6f 74 61 6c 43 61 72 64 |&"of"&&t|otalCard|
|00003ce0| 73 20 69 6e 74 6f 20 6d | 73 67 0d 65 78 70 6f 72 |s into m|sg.expor|
|00003cf0| 74 43 61 72 64 20 2d 2d | 69 6e 20 62 67 20 73 63 |tCard --|in bg sc|
|00003d00| 72 69 70 74 73 0d 67 6f | 20 6e 65 78 74 0d 65 6e |ripts.go| next.en|
|00003d10| 64 20 72 65 70 65 61 74 | 0d 63 6c 6f 73 65 57 69 |d repeat|.closeWi|
|00003d20| 6e 64 6f 77 73 20 22 50 | 72 6f 6d 70 74 6f 69 64 |ndows "P|romptoid|
|00003d30| 22 0d 69 66 20 66 69 6c | 65 49 73 4f 70 65 6e 28 |".if fil|eIsOpen(|
|00003d40| 65 78 70 6f 72 74 46 69 | 6c 65 29 20 69 73 20 74 |exportFi|le) is t|
|00003d50| 72 75 65 20 74 68 65 6e | 20 63 6c 6f 73 65 20 66 |rue then| close f|
|00003d60| 69 6c 65 20 65 78 70 6f | 72 74 46 69 6c 65 0d 70 |ile expo|rtFile.p|
|00003d70| 6f 70 20 63 61 72 64 0d | 65 6e 64 20 65 78 70 6f |op card.|end expo|
|00003d80| 72 74 41 6c 6c 43 61 72 | 64 73 0d 0d 6f 6e 20 65 |rtAllCar|ds..on e|
|00003d90| 78 70 6f 72 74 4d 61 72 | 6b 65 64 43 61 72 64 73 |xportMar|kedCards|
|00003da0| 0d 67 6c 6f 62 61 6c 20 | 65 78 70 6f 72 74 46 69 |.global |exportFi|
|00003db0| 6c 65 2c 65 78 70 61 6e | 64 41 62 62 72 65 76 73 |le,expan|dAbbrevs|
|00003dc0| 0d 70 75 73 68 20 63 61 | 72 64 0d 70 75 74 20 6e |.push ca|rd.put n|
|00003dd0| 75 6d 4d 72 6b 64 43 64 | 73 28 29 20 69 6e 74 6f |umMrkdCd|s() into|
|00003de0| 20 74 6f 74 61 6c 43 61 | 72 64 73 0d 69 66 20 74 | totalCa|rds.if t|
|00003df0| 6f 74 61 6c 43 61 72 64 | 73 3d 30 20 74 68 65 6e |otalCard|s=0 then|
|00003e00| 0d 62 65 65 70 0d 61 6e | 73 77 65 72 20 22 4e 6f |.beep.an|swer "No|
|00003e10| 20 6d 61 72 6b 65 64 20 | 63 61 72 64 73 20 74 6f | marked |cards to|
|00003e20| 20 65 78 70 6f 72 74 21 | 22 0d 65 78 69 74 20 65 | export!|".exit e|
|00003e30| 78 70 6f 72 74 4d 61 72 | 6b 65 64 43 61 72 64 73 |xportMar|kedCards|
|00003e40| 0d 65 6e 64 20 69 66 0d | 63 6c 6f 73 65 57 69 6e |.end if.|closeWin|
|00003e50| 64 6f 77 73 20 22 50 72 | 6f 6d 70 74 6f 69 64 22 |dows "Pr|omptoid"|
|00003e60| 0d 50 72 6f 6d 70 74 6f | 69 64 20 22 45 78 70 6f |.Prompto|id "Expo|
|00003e70| 72 74 69 6e 67 2e 2e 2e | 20 43 6c 69 63 6b 20 6d |rting...| Click m|
|00003e80| 6f 75 73 65 20 74 6f 20 | 73 74 6f 70 22 0d 74 65 |ouse to |stop".te|
|00003e90| 73 74 45 72 72 6f 72 20 | 74 68 65 20 72 65 73 75 |stError |the resu|
|00003ea0| 6c 74 0d 69 66 20 66 69 | 6c 65 49 73 4f 70 65 6e |lt.if fi|leIsOpen|
|00003eb0| 28 65 78 70 6f 72 74 46 | 69 6c 65 29 20 69 73 20 |(exportF|ile) is |
|00003ec0| 74 72 75 65 20 74 68 65 | 6e 20 63 6c 6f 73 65 20 |true the|n close |
|00003ed0| 66 69 6c 65 20 65 78 70 | 6f 72 74 46 69 6c 65 0d |file exp|ortFile.|
|00003ee0| 6f 70 65 6e 20 66 69 6c | 65 20 65 78 70 6f 72 74 |open fil|e export|
|00003ef0| 46 69 6c 65 0d 77 72 69 | 74 65 20 22 25 25 46 69 |File.wri|te "%%Fi|
|00003f00| 6c 65 20 63 72 65 61 74 | 65 64 20 6f 6e 22 26 26 |le creat|ed on"&&|
|00003f10| 74 68 65 20 6c 6f 6e 67 | 20 64 61 74 65 26 26 22 |the long| date&&"|
|00003f20| 61 74 22 26 26 74 68 65 | 20 74 69 6d 65 26 72 65 |at"&&the| time&re|
|00003f30| 74 75 72 6e 20 74 6f 20 | 66 69 6c 65 20 65 78 70 |turn to |file exp|
|00003f40| 6f 72 74 46 69 6c 65 0d | 77 72 69 74 65 20 22 25 |ortFile.|write "%|
|00003f50| 25 22 26 74 6f 74 61 6c | 43 61 72 64 73 26 26 22 |%"&total|Cards&&"|
|00003f60| 63 61 72 64 73 20 65 78 | 70 6f 72 74 65 64 20 66 |cards ex|ported f|
|00003f70| 72 6f 6d 22 26 26 6e 61 | 6d 65 20 6f 66 20 74 68 |rom"&&na|me of th|
|00003f80| 69 73 20 73 74 61 63 6b | 26 72 65 74 75 72 6e 26 |is stack|&return&|
|00003f90| 72 65 74 75 72 6e 20 74 | 6f 20 66 69 6c 65 20 65 |return t|o file e|
|00003fa0| 78 70 6f 72 74 46 69 6c | 65 0d 69 66 20 65 78 70 |xportFil|e.if exp|
|00003fb0| 61 6e 64 41 62 62 72 65 | 76 73 20 69 73 20 6e 6f |andAbbre|vs is no|
|00003fc0| 74 20 74 72 75 65 20 74 | 68 65 6e 20 65 78 70 6f |t true t|hen expo|
|00003fd0| 72 74 41 62 62 72 65 76 | 53 74 72 69 6e 67 73 0d |rtAbbrev|Strings.|
|00003fe0| 67 6f 20 66 69 72 73 74 | 20 6d 61 72 6b 65 64 20 |go first| marked |
|00003ff0| 63 64 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 63 |cd.repea|t with c|
|00004000| 61 72 64 43 6f 75 6e 74 | 20 3d 20 31 20 74 6f 20 |ardCount| = 1 to |
|00004010| 74 6f 74 61 6c 43 61 72 | 64 73 0d 69 66 20 74 68 |totalCar|ds.if th|
|00004020| 65 20 6d 6f 75 73 65 43 | 6c 69 63 6b 20 74 68 65 |e mouseC|lick the|
|00004030| 6e 0d 62 65 65 70 0d 61 | 6e 73 77 65 72 20 22 53 |n.beep.a|nswer "S|
|00004040| 74 6f 70 20 65 78 70 6f | 72 74 69 6e 67 20 63 61 |top expo|rting ca|
|00004050| 72 64 73 3f 22 20 77 69 | 74 68 20 22 59 65 73 22 |rds?" wi|th "Yes"|
|00004060| 20 6f 72 20 22 4e 6f 22 | 0d 69 66 20 69 74 20 69 | or "No"|.if it i|
|00004070| 73 20 22 59 65 73 22 20 | 74 68 65 6e 20 65 78 69 |s "Yes" |then exi|
|00004080| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |t repeat|.end if.|
|00004090| 70 75 74 20 22 45 78 70 | 6f 72 74 69 6e 67 20 63 |put "Exp|orting c|
|000040a0| 61 72 64 22 26 26 63 61 | 72 64 43 6f 75 6e 74 26 |ard"&&ca|rdCount&|
|000040b0| 26 22 6f 66 22 26 26 74 | 6f 74 61 6c 43 61 72 64 |&"of"&&t|otalCard|
|000040c0| 73 20 69 6e 74 6f 20 6d | 73 67 0d 65 78 70 6f 72 |s into m|sg.expor|
|000040d0| 74 43 61 72 64 20 2d 2d | 69 6e 20 62 67 20 73 63 |tCard --|in bg sc|
|000040e0| 72 69 70 74 73 0d 67 6f | 20 6e 65 78 74 20 6d 61 |ripts.go| next ma|
|000040f0| 72 6b 65 64 20 63 61 72 | 64 0d 65 6e 64 20 72 65 |rked car|d.end re|
|00004100| 70 65 61 74 0d 63 6c 6f | 73 65 57 69 6e 64 6f 77 |peat.clo|seWindow|
|00004110| 73 20 22 50 72 6f 6d 70 | 74 6f 69 64 22 0d 69 66 |s "Promp|toid".if|
|00004120| 20 66 69 6c 65 49 73 4f | 70 65 6e 28 65 78 70 6f | fileIsO|pen(expo|
|00004130| 72 74 46 69 6c 65 29 20 | 69 73 20 74 72 75 65 20 |rtFile) |is true |
|00004140| 74 68 65 6e 20 63 6c 6f | 73 65 20 66 69 6c 65 20 |then clo|se file |
|00004150| 65 78 70 6f 72 74 46 69 | 6c 65 0d 70 6f 70 20 63 |exportFi|le.pop c|
|00004160| 61 72 64 0d 65 6e 64 20 | 65 78 70 6f 72 74 4d 61 |ard.end |exportMa|
|00004170| 72 6b 65 64 43 61 72 64 | 73 0d 0d 66 75 6e 63 74 |rkedCard|s..funct|
|00004180| 69 6f 6e 20 65 78 70 6f | 72 74 4b 65 79 0d 72 65 |ion expo|rtKey.re|
|00004190| 74 75 72 6e 20 66 69 72 | 73 74 43 68 75 6e 6b 28 |turn fir|stChunk(|
|000041a0| 22 21 22 2c 66 6c 64 20 | 22 4b 65 79 22 29 26 22 |"!",fld |"Key")&"|
|000041b0| 2c 22 26 72 65 74 75 72 | 6e 0d 65 6e 64 20 65 78 |,"&retur|n.end ex|
|000041c0| 70 6f 72 74 4b 65 79 0d | 0d 66 75 6e 63 74 69 6f |portKey.|.functio|
|000041d0| 6e 20 65 78 70 6f 72 74 | 4b 65 79 46 69 65 6c 64 |n export|KeyField|
|000041e0| 0d 67 6c 6f 62 61 6c 20 | 6f 70 65 6e 44 65 6c 69 |.global |openDeli|
|000041f0| 6d 2c 63 6c 6f 73 65 44 | 65 6c 69 6d 0d 72 65 74 |m,closeD|elim.ret|
|00004200| 75 72 6e 20 22 4b 45 59 | 20 3d 20 22 26 6f 70 65 |urn "KEY| = "&ope|
|00004210| 6e 44 65 6c 69 6d 26 6c | 61 73 74 43 68 75 6e 6b |nDelim&l|astChunk|
|00004220| 28 22 21 22 2c 66 6c 64 | 20 22 4b 65 79 22 29 26 |("!",fld| "Key")&|
|00004230| 63 6c 6f 73 65 44 65 6c | 69 6d 26 22 2c 22 26 72 |closeDel|im&","&r|
|00004240| 65 74 75 72 6e 0d 65 6e | 64 20 65 78 70 6f 72 74 |eturn.en|d export|
|00004250| 4b 65 79 46 69 65 6c 64 | 0d 0d 66 75 6e 63 74 69 |KeyField|..functi|
|00004260| 6f 6e 20 65 78 70 6f 72 | 74 41 75 74 68 6f 72 46 |on expor|tAuthorF|
|00004270| 69 65 6c 64 20 6c 61 62 | 65 6c 0d 67 6c 6f 62 61 |ield lab|el.globa|
|00004280| 6c 20 65 78 70 61 6e 64 | 41 62 62 72 65 76 73 2c |l expand|Abbrevs,|
|00004290| 6f 70 65 6e 44 65 6c 69 | 6d 2c 63 6c 6f 73 65 44 |openDeli|m,closeD|
|000042a0| 65 6c 69 6d 0d 67 65 74 | 20 66 6c 64 20 22 41 75 |elim.get| fld "Au|
|000042b0| 74 68 6f 72 22 0d 69 66 | 20 69 73 41 62 62 72 65 |thor".if| isAbbre|
|000042c0| 76 28 69 74 29 20 74 68 | 65 6e 0d 69 66 20 65 78 |v(it) th|en.if ex|
|000042d0| 70 61 6e 64 41 62 62 72 | 65 76 73 20 69 73 20 74 |pandAbbr|evs is t|
|000042e0| 72 75 65 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |rue then| return |
|000042f0| 6c 61 62 65 6c 26 26 22 | 3d 22 26 26 6f 70 65 6e |label&&"|="&&open|
|00004300| 44 65 6c 69 6d 26 67 65 | 74 41 62 62 72 65 76 44 |Delim&ge|tAbbrevD|
|00004310| 65 66 28 22 41 75 74 68 | 6f 72 22 2c 69 74 29 26 |ef("Auth|or",it)&|
|00004320| 63 6c 6f 73 65 44 65 6c | 69 6d 26 22 2c 22 26 72 |closeDel|im&","&r|
|00004330| 65 74 75 72 6e 0d 65 6c | 73 65 0d 64 65 6c 65 74 |eturn.el|se.delet|
|00004340| 65 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |e first |char of |
|00004350| 69 74 0d 72 65 74 75 72 | 6e 20 6c 61 62 65 6c 26 |it.retur|n label&|
|00004360| 26 22 3d 22 26 26 69 74 | 26 22 2c 22 26 72 65 74 |&"="&&it|&","&ret|
|00004370| 75 72 6e 0d 65 6e 64 20 | 69 66 0d 65 6c 73 65 20 |urn.end |if.else |
|00004380| 72 65 74 75 72 6e 20 6c | 61 62 65 6c 26 26 22 3d |return l|abel&&"=|
|00004390| 22 26 26 6f 70 65 6e 44 | 65 6c 69 6d 26 69 74 26 |"&&openD|elim&it&|
|000043a0| 63 6c 6f 73 65 44 65 6c | 69 6d 26 22 2c 22 26 72 |closeDel|im&","&r|
|000043b0| 65 74 75 72 6e 0d 65 6e | 64 20 65 78 70 6f 72 74 |eturn.en|d export|
|000043c0| 41 75 74 68 6f 72 46 69 | 65 6c 64 0d 0d 66 75 6e |AuthorFi|eld..fun|
|000043d0| 63 74 69 6f 6e 20 65 78 | 70 6f 72 74 4b 65 79 77 |ction ex|portKeyw|
|000043e0| 6f 72 64 73 46 69 65 6c | 64 0d 67 6c 6f 62 61 6c |ordsFiel|d.global|
|000043f0| 20 6d 79 4e 6f 6e 42 69 | 62 54 65 58 46 69 65 6c | myNonBi|bTeXFiel|
|00004400| 64 73 2c 65 78 70 61 6e | 64 41 62 62 72 65 76 73 |ds,expan|dAbbrevs|
|00004410| 2c 6f 70 65 6e 44 65 6c | 69 6d 2c 63 6c 6f 73 65 |,openDel|im,close|
|00004420| 44 65 6c 69 6d 0d 70 75 | 74 20 22 2c 22 20 69 6e |Delim.pu|t "," in|
|00004430| 74 6f 20 64 65 6c 69 6d | 69 74 65 72 0d 69 66 20 |to delim|iter.if |
|00004440| 22 4b 65 79 77 6f 72 64 | 73 22 20 69 73 20 69 6e |"Keyword|s" is in|
|00004450| 20 6d 79 4e 6f 6e 42 69 | 62 54 65 58 46 69 65 6c | myNonBi|bTeXFiel|
|00004460| 64 73 20 61 6e 64 20 66 | 6c 64 20 22 4b 65 79 77 |ds and f|ld "Keyw|
|00004470| 6f 72 64 73 22 20 69 73 | 20 6e 6f 74 20 65 6d 70 |ords" is| not emp|
|00004480| 74 79 20 74 68 65 6e 0d | 72 65 70 65 61 74 20 77 |ty then.|repeat w|
|00004490| 69 74 68 20 78 20 3d 20 | 31 20 74 6f 20 28 6e 75 |ith x = |1 to (nu|
|000044a0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 69 6e |mber of |lines in|
|000044b0| 20 66 6c 64 20 22 4b 65 | 79 77 6f 72 64 73 22 29 | fld "Ke|ywords")|
|000044c0| 0d 69 66 20 69 73 41 62 | 62 72 65 76 28 6c 69 6e |.if isAb|brev(lin|
|000044d0| 65 20 78 20 6f 66 20 66 | 6c 64 20 22 4b 65 79 77 |e x of f|ld "Keyw|
|000044e0| 6f 72 64 73 22 29 20 74 | 68 65 6e 0d 69 66 20 65 |ords") t|hen.if e|
|000044f0| 78 70 61 6e 64 41 62 62 | 72 65 76 73 20 69 73 20 |xpandAbb|revs is |
|00004500| 74 72 75 65 20 74 68 65 | 6e 20 70 75 74 20 67 65 |true the|n put ge|
|00004510| 74 41 62 62 72 65 76 44 | 65 66 28 22 4b 65 79 77 |tAbbrevD|ef("Keyw|
|00004520| 6f 72 64 73 22 2c 6c 69 | 6e 65 20 78 20 6f 66 20 |ords",li|ne x of |
|00004530| 66 6c 64 20 22 4b 65 79 | 77 6f 72 64 73 22 29 26 |fld "Key|words")&|
|00004540| 64 65 6c 69 6d 69 74 65 | 72 20 61 66 74 65 72 20 |delimite|r after |
|00004550| 74 68 65 4b 65 79 77 6f | 72 64 73 0d 65 6c 73 65 |theKeywo|rds.else|
|00004560| 20 70 75 74 20 28 6c 69 | 6e 65 20 78 20 6f 66 20 | put (li|ne x of |
|00004570| 66 6c 64 20 22 4b 65 79 | 77 6f 72 64 73 22 29 26 |fld "Key|words")&|
|00004580| 64 65 6c 69 6d 69 74 65 | 72 20 61 66 74 65 72 20 |delimite|r after |
|00004590| 74 68 65 4b 65 79 77 6f | 72 64 73 0d 2d 2d 61 62 |theKeywo|rds.--ab|
|000045a0| 62 72 65 76 73 20 69 6e | 20 6b 65 79 77 6f 72 64 |brevs in| keyword|
|000045b0| 73 20 6e 6f 74 20 73 75 | 70 70 6f 72 74 65 64 20 |s not su|pported |
|000045c0| 62 79 20 42 69 62 54 65 | 58 0d 65 6c 73 65 20 70 |by BibTe|X.else p|
|000045d0| 75 74 20 28 6c 69 6e 65 | 20 78 20 6f 66 20 66 6c |ut (line| x of fl|
|000045e0| 64 20 22 4b 65 79 77 6f | 72 64 73 22 29 26 64 65 |d "Keywo|rds")&de|
|000045f0| 6c 69 6d 69 74 65 72 20 | 61 66 74 65 72 20 74 68 |limiter |after th|
|00004600| 65 4b 65 79 77 6f 72 64 | 73 0d 65 6e 64 20 72 65 |eKeyword|s.end re|
|00004610| 70 65 61 74 0d 64 65 6c | 65 74 65 20 6c 61 73 74 |peat.del|ete last|
|00004620| 20 63 68 61 72 20 6f 66 | 20 74 68 65 4b 65 79 77 | char of| theKeyw|
|00004630| 6f 72 64 73 20 20 2d 2d | 6c 61 73 74 20 64 65 6c |ords  --|last del|
|00004640| 69 6d 0d 72 65 74 75 72 | 6e 20 22 4b 45 59 57 4f |im.retur|n "KEYWO|
|00004650| 52 44 53 22 26 26 22 3d | 22 26 26 6f 70 65 6e 44 |RDS"&&"=|"&&openD|
|00004660| 65 6c 69 6d 26 74 68 65 | 4b 65 79 77 6f 72 64 73 |elim&the|Keywords|
|00004670| 26 63 6c 6f 73 65 44 65 | 6c 69 6d 26 22 2c 22 26 |&closeDe|lim&","&|
|00004680| 72 65 74 75 72 6e 0d 65 | 6c 73 65 20 72 65 74 75 |return.e|lse retu|
|00004690| 72 6e 20 65 6d 70 74 79 | 0d 65 6e 64 20 65 78 70 |rn empty|.end exp|
|000046a0| 6f 72 74 4b 65 79 77 6f | 72 64 73 46 69 65 6c 64 |ortKeywo|rdsField|
|000046b0| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 65 78 70 6f 72 |..functi|on expor|
|000046c0| 74 46 69 65 6c 64 20 66 | 6c 64 4e 61 6d 65 2c 72 |tField f|ldName,r|
|000046d0| 65 71 75 69 72 65 64 46 | 69 65 6c 64 0d 67 6c 6f |equiredF|ield.glo|
|000046e0| 62 61 6c 20 6e 6f 6e 42 | 69 62 54 65 58 46 69 65 |bal nonB|ibTeXFie|
|000046f0| 6c 64 73 2c 6d 79 4e 6f | 6e 42 69 62 54 65 58 46 |lds,myNo|nBibTeXF|
|00004700| 69 65 6c 64 73 2c 65 78 | 70 61 6e 64 41 62 62 72 |ields,ex|pandAbbr|
|00004710| 65 76 73 2c 6f 70 65 6e | 44 65 6c 69 6d 2c 63 6c |evs,open|Delim,cl|
|00004720| 6f 73 65 44 65 6c 69 6d | 0d 69 66 20 72 65 74 75 |oseDelim|.if retu|
|00004730| 72 6e 26 66 6c 64 4e 61 | 6d 65 26 72 65 74 75 72 |rn&fldNa|me&retur|
|00004740| 6e 20 69 73 20 69 6e 20 | 72 65 74 75 72 6e 26 6e |n is in |return&n|
|00004750| 6f 6e 42 69 62 54 65 58 | 46 69 65 6c 64 73 26 72 |onBibTeX|Fields&r|
|00004760| 65 74 75 72 6e 20 74 68 | 65 6e 0d 69 66 20 72 65 |eturn th|en.if re|
|00004770| 74 75 72 6e 26 66 6c 64 | 4e 61 6d 65 26 72 65 74 |turn&fld|Name&ret|
|00004780| 75 72 6e 20 69 73 20 69 | 6e 20 72 65 74 75 72 6e |urn is i|n return|
|00004790| 26 6d 79 4e 6f 6e 42 69 | 62 54 65 58 46 69 65 6c |&myNonBi|bTeXFiel|
|000047a0| 64 73 26 72 65 74 75 72 | 6e 20 61 6e 64 20 66 69 |ds&retur|n and fi|
|000047b0| 65 6c 64 20 66 6c 64 4e | 61 6d 65 20 69 73 20 6e |eld fldN|ame is n|
|000047c0| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 67 65 |ot empty| then.ge|
|000047d0| 74 20 66 6c 64 20 66 6c | 64 4e 61 6d 65 0d 69 66 |t fld fl|dName.if|
|000047e0| 20 69 73 41 62 62 72 65 | 76 28 69 74 29 20 74 68 | isAbbre|v(it) th|
|000047f0| 65 6e 0d 69 66 20 65 78 | 70 61 6e 64 41 62 62 72 |en.if ex|pandAbbr|
|00004800| 65 76 73 20 69 73 20 74 | 72 75 65 20 74 68 65 6e |evs is t|rue then|
|00004810| 20 72 65 74 75 72 6e 20 | 66 6c 64 4e 61 6d 65 26 | return |fldName&|
|00004820| 26 22 3d 22 26 26 6f 70 | 65 6e 44 65 6c 69 6d 26 |&"="&&op|enDelim&|
|00004830| 67 65 74 41 62 62 72 65 | 76 44 65 66 28 66 6c 64 |getAbbre|vDef(fld|
|00004840| 4e 61 6d 65 2c 69 74 29 | 26 63 6c 6f 73 65 44 65 |Name,it)|&closeDe|
|00004850| 6c 69 6d 26 22 2c 22 26 | 72 65 74 75 72 6e 0d 65 |lim&","&|return.e|
|00004860| 6c 73 65 0d 64 65 6c 65 | 74 65 20 66 69 72 73 74 |lse.dele|te first|
|00004870| 20 63 68 61 72 20 6f 66 | 20 69 74 0d 72 65 74 75 | char of| it.retu|
|00004880| 72 6e 20 66 6c 64 4e 61 | 6d 65 26 26 22 3d 22 26 |rn fldNa|me&&"="&|
|00004890| 26 69 74 26 22 2c 22 26 | 72 65 74 75 72 6e 0d 65 |&it&","&|return.e|
|000048a0| 6e 64 20 69 66 0d 65 6c | 73 65 20 72 65 74 75 72 |nd if.el|se retur|
|000048b0| 6e 20 66 6c 64 4e 61 6d | 65 26 26 22 3d 22 26 26 |n fldNam|e&&"="&&|
|000048c0| 6f 70 65 6e 44 65 6c 69 | 6d 26 69 74 26 63 6c 6f |openDeli|m&it&clo|
|000048d0| 73 65 44 65 6c 69 6d 26 | 22 2c 22 26 72 65 74 75 |seDelim&|","&retu|
|000048e0| 72 6e 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 20 69 |rn.end i|f.else i|
|000048f0| 66 20 72 65 71 75 69 72 | 65 64 46 69 65 6c 64 20 |f requir|edField |
|00004900| 69 73 20 74 72 75 65 20 | 6f 72 20 66 69 65 6c 64 |is true |or field|
|00004910| 20 66 6c 64 4e 61 6d 65 | 20 69 73 20 6e 6f 74 20 | fldName| is not |
|00004920| 65 6d 70 74 79 20 74 68 | 65 6e 0d 67 65 74 20 66 |empty th|en.get f|
|00004930| 6c 64 20 66 6c 64 4e 61 | 6d 65 0d 69 66 20 69 73 |ld fldNa|me.if is|
|00004940| 41 62 62 72 65 76 28 69 | 74 29 20 74 68 65 6e 0d |Abbrev(i|t) then.|
|00004950| 69 66 20 65 78 70 61 6e | 64 41 62 62 72 65 76 73 |if expan|dAbbrevs|
|00004960| 20 69 73 20 74 72 75 65 | 20 74 68 65 6e 0d 70 75 | is true| then.pu|
|00004970| 74 20 67 65 74 41 62 62 | 72 65 76 44 65 66 28 66 |t getAbb|revDef(f|
|00004980| 6c 64 4e 61 6d 65 2c 69 | 74 29 20 69 6e 74 6f 20 |ldName,i|t) into |
|00004990| 61 62 62 72 65 76 44 65 | 66 0d 69 66 20 61 62 62 |abbrevDe|f.if abb|
|000049a0| 72 65 76 44 65 66 20 3d | 20 22 22 20 74 68 65 6e |revDef =| "" then|
|000049b0| 0d 64 65 6c 65 74 65 20 | 66 69 72 73 74 20 63 68 |.delete |first ch|
|000049c0| 61 72 20 6f 66 20 69 74 | 0d 72 65 74 75 72 6e 20 |ar of it|.return |
|000049d0| 66 6c 64 4e 61 6d 65 26 | 26 22 3d 22 26 26 69 74 |fldName&|&"="&&it|
|000049e0| 26 22 2c 22 26 72 65 74 | 75 72 6e 0d 65 6c 73 65 |&","&ret|urn.else|
|000049f0| 20 72 65 74 75 72 6e 20 | 66 6c 64 4e 61 6d 65 26 | return |fldName&|
|00004a00| 26 22 3d 22 26 26 6f 70 | 65 6e 44 65 6c 69 6d 26 |&"="&&op|enDelim&|
|00004a10| 61 62 62 72 65 76 44 65 | 66 26 63 6c 6f 73 65 44 |abbrevDe|f&closeD|
|00004a20| 65 6c 69 6d 26 22 2c 22 | 26 72 65 74 75 72 6e 0d |elim&","|&return.|
|00004a30| 65 6c 73 65 0d 64 65 6c | 65 74 65 20 66 69 72 73 |else.del|ete firs|
|00004a40| 74 20 63 68 61 72 20 6f | 66 20 69 74 0d 72 65 74 |t char o|f it.ret|
|00004a50| 75 72 6e 20 66 6c 64 4e | 61 6d 65 26 26 22 3d 22 |urn fldN|ame&&"="|
|00004a60| 26 26 69 74 26 22 2c 22 | 26 72 65 74 75 72 6e 0d |&&it&","|&return.|
|00004a70| 65 6e 64 20 69 66 0d 65 | 6c 73 65 20 72 65 74 75 |end if.e|lse retu|
|00004a80| 72 6e 20 66 6c 64 4e 61 | 6d 65 26 26 22 3d 22 26 |rn fldNa|me&&"="&|
|00004a90| 26 6f 70 65 6e 44 65 6c | 69 6d 26 69 74 26 63 6c |&openDel|im&it&cl|
|00004aa0| 6f 73 65 44 65 6c 69 6d | 26 22 2c 22 26 72 65 74 |oseDelim|&","&ret|
|00004ab0| 75 72 6e 0d 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |urn.else| return |
|00004ac0| 65 6d 70 74 79 0d 65 6e | 64 20 65 78 70 6f 72 74 |empty.en|d export|
|00004ad0| 46 69 65 6c 64 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |Field..f|unction |
|00004ae0| 67 65 74 41 62 62 72 65 | 76 44 65 66 20 66 6c 64 |getAbbre|vDef fld|
|00004af0| 4e 61 6d 65 2c 74 68 65 | 41 62 62 72 65 76 0d 69 |Name,the|Abbrev.i|
|00004b00| 66 20 66 6c 64 4e 61 6d | 65 20 69 73 20 22 41 75 |f fldNam|e is "Au|
|00004b10| 74 68 6f 72 22 20 74 68 | 65 6e 0d 70 75 74 20 28 |thor" th|en.put (|
|00004b20| 63 64 20 66 6c 64 20 22 | 41 75 74 68 6f 72 73 22 |cd fld "|Authors"|
|00004b30| 20 6f 66 20 63 64 20 22 | 41 75 74 68 6f 72 73 22 | of cd "|Authors"|
|00004b40| 20 6f 66 20 62 67 20 22 | 48 42 20 55 74 69 6c 69 | of bg "|HB Utili|
|00004b50| 74 79 20 43 61 72 64 73 | 22 29 20 69 6e 74 6f 20 |ty Cards|") into |
|00004b60| 74 68 65 46 6c 64 0d 65 | 6c 73 65 20 69 66 20 66 |theFld.e|lse if f|
|00004b70| 6c 64 4e 61 6d 65 20 69 | 73 20 69 6e 20 22 4a 6f |ldName i|s in "Jo|
|00004b80| 75 72 6e 61 6c 2c 53 65 | 72 69 65 73 2c 54 79 70 |urnal,Se|ries,Typ|
|00004b90| 65 22 20 74 68 65 6e 0d | 70 75 74 20 28 63 64 20 |e" then.|put (cd |
|00004ba0| 66 6c 64 20 22 4a 6f 75 | 72 6e 61 6c 73 22 20 6f |fld "Jou|rnals" o|
|00004bb0| 66 20 63 64 20 22 4a 6f | 75 72 6e 61 6c 73 22 20 |f cd "Jo|urnals" |
|00004bc0| 6f 66 20 62 67 20 22 48 | 42 20 55 74 69 6c 69 74 |of bg "H|B Utilit|
|00004bd0| 79 20 43 61 72 64 73 22 | 29 20 69 6e 74 6f 20 74 |y Cards"|) into t|
|00004be0| 68 65 46 6c 64 0d 65 6c | 73 65 20 69 66 20 66 6c |heFld.el|se if fl|
|00004bf0| 64 4e 61 6d 65 20 69 73 | 20 69 6e 20 22 50 75 62 |dName is| in "Pub|
|00004c00| 6c 69 73 68 65 72 2c 4f | 72 67 61 6e 69 7a 61 74 |lisher,O|rganizat|
|00004c10| 69 6f 6e 2c 49 6e 73 74 | 69 74 75 74 69 6f 6e 2c |ion,Inst|itution,|
|00004c20| 53 63 68 6f 6f 6c 22 20 | 74 68 65 6e 0d 70 75 74 |School" |then.put|
|00004c30| 20 28 63 64 20 66 6c 64 | 20 22 50 75 62 6c 69 73 | (cd fld| "Publis|
|00004c40| 68 65 72 73 22 20 6f 66 | 20 63 64 20 22 50 75 62 |hers" of| cd "Pub|
|00004c50| 6c 69 73 68 65 72 73 22 | 20 6f 66 20 62 67 20 22 |lishers"| of bg "|
|00004c60| 48 42 20 55 74 69 6c 69 | 74 79 20 43 61 72 64 73 |HB Utili|ty Cards|
|00004c70| 22 29 20 69 6e 74 6f 20 | 74 68 65 46 6c 64 0d 65 |") into |theFld.e|
|00004c80| 6c 73 65 20 69 66 20 66 | 6c 64 4e 61 6d 65 20 69 |lse if f|ldName i|
|00004c90| 73 20 22 4b 65 79 77 6f | 72 64 73 22 20 74 68 65 |s "Keywo|rds" the|
|00004ca0| 6e 0d 70 75 74 20 28 63 | 64 20 66 6c 64 20 22 4b |n.put (c|d fld "K|
|00004cb0| 65 79 77 6f 72 64 73 22 | 20 6f 66 20 63 64 20 22 |eywords"| of cd "|
|00004cc0| 4b 65 79 77 6f 72 64 73 | 22 20 6f 66 20 62 67 20 |Keywords|" of bg |
|00004cd0| 22 48 42 20 55 74 69 6c | 69 74 79 20 43 61 72 64 |"HB Util|ity Card|
|00004ce0| 73 22 29 20 69 6e 74 6f | 20 74 68 65 46 6c 64 0d |s") into| theFld.|
|00004cf0| 65 6c 73 65 20 72 65 74 | 75 72 6e 20 65 6d 70 74 |else ret|urn empt|
|00004d00| 79 0d 70 75 74 20 73 65 | 61 72 63 68 28 74 68 65 |y.put se|arch(the|
|00004d10| 46 6c 64 2c 74 68 65 41 | 62 62 72 65 76 26 22 3d |Fld,theA|bbrev&"=|
|00004d20| 22 2c 66 61 6c 73 65 29 | 20 69 6e 74 6f 20 69 74 |",false)| into it|
|00004d30| 0d 69 66 20 69 74 20 69 | 73 20 65 6d 70 74 79 20 |.if it i|s empty |
|00004d40| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 65 6d 70 74 |then ret|urn empt|
|00004d50| 79 0d 70 75 74 20 6c 69 | 6e 65 20 28 66 69 72 73 |y.put li|ne (firs|
|00004d60| 74 20 69 74 65 6d 20 6f | 66 20 69 74 29 20 6f 66 |t item o|f it) of|
|00004d70| 20 74 68 65 46 6c 64 20 | 69 6e 74 6f 20 74 68 65 | theFld |into the|
|00004d80| 4c 69 6e 65 0d 64 65 6c | 65 74 65 20 63 68 61 72 |Line.del|ete char|
|00004d90| 20 31 20 74 6f 20 6f 66 | 66 73 65 74 28 22 3d 22 | 1 to of|fset("="|
|00004da0| 2c 74 68 65 4c 69 6e 65 | 29 20 6f 66 20 74 68 65 |,theLine|) of the|
|00004db0| 4c 69 6e 65 0d 64 65 6c | 65 74 65 20 66 69 72 73 |Line.del|ete firs|
|00004dc0| 74 20 63 68 61 72 20 6f | 66 20 74 68 65 4c 69 6e |t char o|f theLin|
|00004dd0| 65 20 20 2d 2d 6f 70 65 | 6e 44 65 6c 69 6d 0d 64 |e  --ope|nDelim.d|
|00004de0| 65 6c 65 74 65 20 6c 61 | 73 74 20 63 68 61 72 20 |elete la|st char |
|00004df0| 6f 66 20 74 68 65 4c 69 | 6e 65 20 20 20 2d 2d 63 |of theLi|ne   --c|
|00004e00| 6c 6f 73 65 44 65 6c 69 | 6d 0d 72 65 74 75 72 6e |loseDeli|m.return|
|00004e10| 20 74 68 65 4c 69 6e 65 | 0d 65 6e 64 20 67 65 74 | theLine|.end get|
|00004e20| 41 62 62 72 65 76 44 65 | 66 0d 0d 6f 6e 20 65 78 |AbbrevDe|f..on ex|
|00004e30| 70 6f 72 74 41 62 62 72 | 65 76 53 74 72 69 6e 67 |portAbbr|evString|
|00004e40| 73 0d 67 6c 6f 62 61 6c | 20 65 78 70 6f 72 74 46 |s.global| exportF|
|00004e50| 69 6c 65 0d 67 6f 20 63 | 64 20 22 41 75 74 68 6f |ile.go c|d "Autho|
|00004e60| 72 73 22 20 69 6e 20 62 | 67 20 22 48 42 20 55 74 |rs" in b|g "HB Ut|
|00004e70| 69 6c 69 74 79 20 43 61 | 72 64 73 22 0d 74 65 73 |ility Ca|rds".tes|
|00004e80| 74 45 72 72 6f 72 20 74 | 68 65 20 72 65 73 75 6c |tError t|he resul|
|00004e90| 74 2c 22 45 72 72 6f 72 | 3a 20 63 61 6e 27 74 20 |t,"Error|: can't |
|00004ea0| 66 69 6e 64 20 63 61 72 | 64 20 d2 41 75 74 68 6f |find car|d .Autho|
|00004eb0| 72 73 d3 2e 22 0d 70 75 | 74 20 63 64 20 66 6c 64 |rs..".pu|t cd fld|
|00004ec0| 20 22 41 75 74 68 6f 72 | 73 22 20 69 6e 74 6f 20 | "Author|s" into |
|00004ed0| 69 74 0d 77 72 69 74 65 | 41 62 62 72 65 76 53 74 |it.write|AbbrevSt|
|00004ee0| 72 69 6e 67 20 69 74 0d | 67 6f 20 63 64 20 22 4a |ring it.|go cd "J|
|00004ef0| 6f 75 72 6e 61 6c 73 22 | 20 69 6e 20 62 67 20 22 |ournals"| in bg "|
|00004f00| 48 42 20 55 74 69 6c 69 | 74 79 20 43 61 72 64 73 |HB Utili|ty Cards|
|00004f10| 22 0d 74 65 73 74 45 72 | 72 6f 72 20 74 68 65 20 |".testEr|ror the |
|00004f20| 72 65 73 75 6c 74 2c 22 | 45 72 72 6f 72 3a 20 63 |result,"|Error: c|
|00004f30| 61 6e 27 74 20 66 69 6e | 64 20 63 61 72 64 20 d2 |an't fin|d card .|
|00004f40| 4a 6f 75 72 6e 61 6c 73 | d3 2e 22 0d 70 75 74 20 |Journals|..".put |
|00004f50| 63 64 20 66 6c 64 20 22 | 4a 6f 75 72 6e 61 6c 73 |cd fld "|Journals|
|00004f60| 22 20 69 6e 74 6f 20 69 | 74 0d 77 72 69 74 65 41 |" into i|t.writeA|
|00004f70| 62 62 72 65 76 53 74 72 | 69 6e 67 20 69 74 0d 67 |bbrevStr|ing it.g|
|00004f80| 6f 20 63 64 20 22 50 75 | 62 6c 69 73 68 65 72 73 |o cd "Pu|blishers|
|00004f90| 22 20 69 6e 20 62 67 20 | 22 48 42 20 55 74 69 6c |" in bg |"HB Util|
|00004fa0| 69 74 79 20 43 61 72 64 | 73 22 0d 74 65 73 74 45 |ity Card|s".testE|
|00004fb0| 72 72 6f 72 20 74 68 65 | 20 72 65 73 75 6c 74 2c |rror the| result,|
|00004fc0| 22 45 72 72 6f 72 3a 20 | 63 61 6e 27 74 20 66 69 |"Error: |can't fi|
|00004fd0| 6e 64 20 63 61 72 64 20 | d2 50 75 62 6c 69 73 68 |nd card |.Publish|
|00004fe0| 65 72 73 d3 2e 22 0d 70 | 75 74 20 63 64 20 66 6c |ers..".p|ut cd fl|
|00004ff0| 64 20 22 50 75 62 6c 69 | 73 68 65 72 73 22 20 69 |d "Publi|shers" i|
|00005000| 6e 74 6f 20 69 74 0d 77 | 72 69 74 65 41 62 62 72 |nto it.w|riteAbbr|
|00005010| 65 76 53 74 72 69 6e 67 | 20 69 74 0d 67 6f 20 63 |evString| it.go c|
|00005020| 64 20 22 4b 65 79 77 6f | 72 64 73 22 20 69 6e 20 |d "Keywo|rds" in |
|00005030| 62 67 20 22 48 42 20 55 | 74 69 6c 69 74 79 20 43 |bg "HB U|tility C|
|00005040| 61 72 64 73 22 0d 74 65 | 73 74 45 72 72 6f 72 20 |ards".te|stError |
|00005050| 74 68 65 20 72 65 73 75 | 6c 74 2c 22 45 72 72 6f |the resu|lt,"Erro|
|00005060| 72 3a 20 63 61 6e 27 74 | 20 66 69 6e 64 20 63 61 |r: can't| find ca|
|00005070| 72 64 20 d2 4b 65 79 77 | 6f 72 64 73 d3 2e 22 0d |rd .Keyw|ords..".|
|00005080| 70 75 74 20 63 64 20 66 | 6c 64 20 22 4b 65 79 77 |put cd f|ld "Keyw|
|00005090| 6f 72 64 73 22 20 69 6e | 74 6f 20 69 74 0d 77 72 |ords" in|to it.wr|
|000050a0| 69 74 65 41 62 62 72 65 | 76 53 74 72 69 6e 67 20 |iteAbbre|vString |
|000050b0| 69 74 0d 77 72 69 74 65 | 20 72 65 74 75 72 6e 20 |it.write| return |
|000050c0| 74 6f 20 66 69 6c 65 20 | 65 78 70 6f 72 74 46 69 |to file |exportFi|
|000050d0| 6c 65 20 20 2d 2d 62 6c | 61 6e 6b 20 6c 69 6e 65 |le  --bl|ank line|
|000050e0| 0d 65 6e 64 20 65 78 70 | 6f 72 74 41 62 62 72 65 |.end exp|ortAbbre|
|000050f0| 76 53 74 72 69 6e 67 73 | 0d 0d 6f 6e 20 77 72 69 |vStrings|..on wri|
|00005100| 74 65 41 62 62 72 65 76 | 53 74 72 69 6e 67 20 74 |teAbbrev|String t|
|00005110| 68 65 41 75 74 68 6f 72 | 69 74 79 4c 69 73 74 0d |heAuthor|ityList.|
|00005120| 67 6c 6f 62 61 6c 20 65 | 78 70 6f 72 74 46 69 6c |global e|xportFil|
|00005130| 65 0d 70 75 74 20 73 65 | 61 72 63 68 28 74 68 65 |e.put se|arch(the|
|00005140| 41 75 74 68 6f 72 69 74 | 79 4c 69 73 74 2c 22 2e |Authorit|yList,".|
|00005150| 22 2c 74 72 75 65 2c 61 | 6c 6c 29 20 69 6e 74 6f |",true,a|ll) into|
|00005160| 20 6c 69 6e 65 4c 69 73 | 74 0d 72 65 70 65 61 74 | lineLis|t.repeat|
|00005170| 20 77 69 74 68 20 78 20 | 3d 20 31 20 74 6f 20 28 | with x |= 1 to (|
|00005180| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00005190| 6f 66 20 6c 69 6e 65 4c | 69 73 74 29 0d 70 75 74 |of lineL|ist).put|
|000051a0| 20 28 6c 69 6e 65 20 28 | 69 74 65 6d 20 31 20 6f | (line (|item 1 o|
|000051b0| 66 20 6c 69 6e 65 20 78 | 20 6f 66 20 6c 69 6e 65 |f line x| of line|
|000051c0| 4c 69 73 74 29 20 6f 66 | 20 74 68 65 41 75 74 68 |List) of| theAuth|
|000051d0| 6f 72 69 74 79 4c 69 73 | 74 29 20 69 6e 74 6f 20 |orityLis|t) into |
|000051e0| 74 68 65 41 62 62 72 65 | 76 53 74 72 69 6e 67 0d |theAbbre|vString.|
|000051f0| 64 65 6c 65 74 65 20 66 | 69 72 73 74 20 63 68 61 |delete f|irst cha|
|00005200| 72 20 6f 66 20 74 68 65 | 41 62 62 72 65 76 53 74 |r of the|AbbrevSt|
|00005210| 72 69 6e 67 20 20 2d 2d | 74 68 65 20 64 6f 74 0d |ring  --|the dot.|
|00005220| 77 72 69 74 65 20 22 40 | 73 74 72 69 6e 67 7b 22 |write "@|string{"|
|00005230| 26 74 68 65 41 62 62 72 | 65 76 53 74 72 69 6e 67 |&theAbbr|evString|
|00005240| 26 22 7d 22 26 72 65 74 | 75 72 6e 20 74 6f 20 66 |&"}"&ret|urn to f|
|00005250| 69 6c 65 20 65 78 70 6f | 72 74 46 69 6c 65 0d 65 |ile expo|rtFile.e|
|00005260| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 77 72 |nd repea|t.end wr|
|00005270| 69 74 65 41 62 62 72 65 | 76 53 74 72 69 6e 67 0d |iteAbbre|vString.|
|00005280| 0d 0d 2d 2d 20 49 6d 70 | 6f 72 74 20 2d 2d 0d 0d |..-- Imp|ort --..|
|00005290| 6f 6e 20 69 6d 70 6f 72 | 74 45 6e 74 72 69 65 73 |on impor|tEntries|
|000052a0| 0d 67 6c 6f 62 61 6c 20 | 69 6d 70 6f 72 74 46 69 |.global |importFi|
|000052b0| 6c 65 2c 74 68 65 45 6e | 74 72 79 2c 6c 6f 6f 70 |le,theEn|try,loop|
|000052c0| 46 6c 61 67 2c 76 65 72 | 69 66 79 46 6c 61 67 0d |Flag,ver|ifyFlag.|
|000052d0| 73 65 74 4c 6f 63 6b 45 | 72 72 6f 72 44 69 61 6c |setLockE|rrorDial|
|000052e0| 6f 67 73 0d 63 6c 6f 73 | 65 57 69 6e 64 6f 77 73 |ogs.clos|eWindows|
|000052f0| 20 22 41 6e 6e 6f 74 61 | 74 69 6f 6e 2c 55 73 65 | "Annota|tion,Use|
|00005300| 72 20 46 69 65 6c 64 73 | 22 0d 61 6e 73 77 65 72 |r Fields|".answer|
|00005310| 20 66 69 6c 65 20 22 49 | 6d 70 6f 72 74 20 42 69 | file "I|mport Bi|
|00005320| 62 54 65 58 20 65 6e 74 | 72 69 65 73 20 66 72 6f |bTeX ent|ries fro|
|00005330| 6d 20 77 68 61 74 20 66 | 69 6c 65 3a 22 20 6f 66 |m what f|ile:" of|
|00005340| 20 74 79 70 65 20 22 54 | 45 58 54 22 0d 69 66 20 | type "T|EXT".if |
|00005350| 74 68 65 20 72 65 73 75 | 6c 74 20 69 73 20 22 43 |the resu|lt is "C|
|00005360| 61 6e 63 65 6c 22 20 6f | 72 20 69 74 20 69 73 20 |ancel" o|r it is |
|00005370| 22 22 20 74 68 65 6e 20 | 65 78 69 74 20 69 6d 70 |"" then |exit imp|
|00005380| 6f 72 74 45 6e 74 72 69 | 65 73 0d 70 75 74 20 69 |ortEntri|es.put i|
|00005390| 74 20 69 6e 74 6f 20 69 | 6d 70 6f 72 74 46 69 6c |t into i|mportFil|
|000053a0| 65 0d 64 69 73 61 6c 6c | 6f 77 49 6e 74 65 72 72 |e.disall|owInterr|
|000053b0| 75 70 74 69 6f 6e 0d 64 | 6f 4c 6f 63 6b 20 74 72 |uption.d|oLock tr|
|000053c0| 75 65 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |ue.unloc|k screen|
|000053d0| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 73 65 74 |.lock sc|reen.set|
|000053e0| 20 63 75 72 73 6f 72 20 | 74 6f 20 77 61 74 63 68 | cursor |to watch|
|000053f0| 0d 63 6c 6f 73 65 57 69 | 6e 64 6f 77 73 20 22 50 |.closeWi|ndows "P|
|00005400| 72 6f 6d 70 74 6f 69 64 | 22 0d 50 72 6f 6d 70 74 |romptoid|".Prompt|
|00005410| 6f 69 64 20 22 49 6d 70 | 6f 72 74 69 6e 67 2e 2e |oid "Imp|orting..|
|00005420| 2e 20 43 6c 69 63 6b 20 | 6d 6f 75 73 65 20 74 6f |. Click |mouse to|
|00005430| 20 73 74 6f 70 22 0d 74 | 65 73 74 45 72 72 6f 72 | stop".t|estError|
|00005440| 20 74 68 65 20 72 65 73 | 75 6c 74 0d 70 75 74 20 | the res|ult.put |
|00005450| 76 65 72 69 66 79 46 6c | 61 67 20 69 6e 74 6f 20 |verifyFl|ag into |
|00005460| 73 61 76 65 56 65 72 69 | 66 79 46 6c 61 67 0d 70 |saveVeri|fyFlag.p|
|00005470| 75 74 20 66 61 6c 73 65 | 20 69 6e 74 6f 20 6c 6f |ut false| into lo|
|00005480| 6f 70 46 6c 61 67 0d 70 | 75 74 20 66 61 6c 73 65 |opFlag.p|ut false|
|00005490| 20 69 6e 74 6f 20 76 65 | 72 69 66 79 46 6c 61 67 | into ve|rifyFlag|
|000054a0| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|000054b0| 74 68 65 45 6e 74 72 79 | 0d 70 75 74 20 65 6d 70 |theEntry|.put emp|
|000054c0| 74 79 20 69 6e 74 6f 20 | 69 6e 63 6c 75 64 65 41 |ty into |includeA|
|000054d0| 62 62 72 65 76 53 74 72 | 69 6e 67 73 0d 70 75 74 |bbrevStr|ings.put|
|000054e0| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 65 78 69 74 | false i|nto exit|
|000054f0| 4c 6f 6f 70 0d 69 66 20 | 66 69 6c 65 49 73 4f 70 |Loop.if |fileIsOp|
|00005500| 65 6e 28 69 6d 70 6f 72 | 74 46 69 6c 65 29 69 73 |en(impor|tFile)is|
|00005510| 20 74 72 75 65 20 74 68 | 65 6e 20 63 6c 6f 73 65 | true th|en close|
|00005520| 20 66 69 6c 65 20 69 6d | 70 6f 72 74 46 69 6c 65 | file im|portFile|
|00005530| 0d 6f 70 65 6e 20 66 69 | 6c 65 20 69 6d 70 6f 72 |.open fi|le impor|
|00005540| 74 46 69 6c 65 0d 72 65 | 61 64 20 66 72 6f 6d 20 |tFile.re|ad from |
|00005550| 66 69 6c 65 20 69 6d 70 | 6f 72 74 46 69 6c 65 20 |file imp|ortFile |
|00005560| 75 6e 74 69 6c 20 22 40 | 22 20 2d 2d 73 74 61 72 |until "@|" --star|
|00005570| 74 20 6f 66 20 66 69 72 | 73 74 20 65 6e 74 72 79 |t of fir|st entry|
|00005580| 0d 69 66 20 69 74 20 69 | 73 20 65 6d 70 74 79 20 |.if it i|s empty |
|00005590| 74 68 65 6e 0d 70 75 74 | 20 74 72 75 65 20 69 6e |then.put| true in|
|000055a0| 74 6f 20 65 78 69 74 4c | 6f 6f 70 20 20 2d 2d 6e |to exitL|oop  --n|
|000055b0| 6f 20 76 61 6c 69 64 20 | 65 6e 74 72 69 65 73 20 |o valid |entries |
|000055c0| 69 6e 20 66 69 6c 65 0d | 62 65 65 70 0d 61 6e 73 |in file.|beep.ans|
|000055d0| 77 65 72 20 22 4e 6f 20 | 76 61 6c 69 64 20 42 69 |wer "No |valid Bi|
|000055e0| 62 54 65 58 20 65 6e 74 | 72 69 65 73 20 69 6e 20 |bTeX ent|ries in |
|000055f0| 74 68 69 73 20 66 69 6c | 65 2e 22 0d 65 6e 64 20 |this fil|e.".end |
|00005600| 69 66 0d 72 65 70 65 61 | 74 20 75 6e 74 69 6c 20 |if.repea|t until |
|00005610| 65 78 69 74 4c 6f 6f 70 | 0d 69 66 20 74 68 65 20 |exitLoop|.if the |
|00005620| 6d 6f 75 73 65 43 6c 69 | 63 6b 20 74 68 65 6e 0d |mouseCli|ck then.|
|00005630| 62 65 65 70 0d 61 6e 73 | 77 65 72 20 22 53 74 6f |beep.ans|wer "Sto|
|00005640| 70 20 69 6d 70 6f 72 74 | 69 6e 67 20 65 6e 74 72 |p import|ing entr|
|00005650| 69 65 73 3f 22 20 77 69 | 74 68 20 22 59 65 73 22 |ies?" wi|th "Yes"|
|00005660| 20 6f 72 20 22 4e 6f 22 | 0d 69 66 20 69 74 20 69 | or "No"|.if it i|
|00005670| 73 20 22 59 65 73 22 20 | 74 68 65 6e 20 65 78 69 |s "Yes" |then exi|
|00005680| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |t repeat|.end if.|
|00005690| 2d 2d 48 79 70 65 72 42 | 69 62 54 65 58 20 72 65 |--HyperB|ibTeX re|
|000056a0| 71 75 69 72 65 73 20 7b | 7d 20 61 73 20 6f 75 74 |quires {|} as out|
|000056b0| 65 72 6d 6f 73 74 20 64 | 65 6c 69 6d 69 74 65 72 |ermost d|elimiter|
|000056c0| 73 0d 72 65 61 64 20 66 | 72 6f 6d 20 66 69 6c 65 |s.read f|rom file|
|000056d0| 20 69 6d 70 6f 72 74 46 | 69 6c 65 20 75 6e 74 69 | importF|ile unti|
|000056e0| 6c 20 22 7b 22 0d 69 66 | 20 69 74 20 69 73 20 65 |l "{".if| it is e|
|000056f0| 6d 70 74 79 20 74 68 65 | 6e 20 65 78 69 74 20 72 |mpty the|n exit r|
|00005700| 65 70 65 61 74 20 20 2d | 2d 65 6e 64 20 6f 66 20 |epeat  -|-end of |
|00005710| 66 69 6c 65 20 6f 72 20 | 62 61 64 20 64 61 74 61 |file or |bad data|
|00005720| 0d 69 66 20 69 74 20 63 | 6f 6e 74 61 69 6e 73 20 |.if it c|ontains |
|00005730| 22 49 4e 42 4f 4f 4b 22 | 20 74 68 65 6e 20 69 6d |"INBOOK"| then im|
|00005740| 70 6f 72 74 4f 6e 65 20 | 22 49 6e 42 6f 6f 6b 22 |portOne |"InBook"|
|00005750| 0d 65 6c 73 65 20 69 66 | 20 69 74 20 63 6f 6e 74 |.else if| it cont|
|00005760| 61 69 6e 73 20 22 42 4f | 4f 4b 4c 45 54 22 20 74 |ains "BO|OKLET" t|
|00005770| 68 65 6e 20 69 6d 70 6f | 72 74 4f 6e 65 20 22 42 |hen impo|rtOne "B|
|00005780| 6f 6f 6b 6c 65 74 22 0d | 65 6c 73 65 20 69 66 20 |ooklet".|else if |
|00005790| 69 74 20 63 6f 6e 74 61 | 69 6e 73 20 22 42 4f 4f |it conta|ins "BOO|
|000057a0| 4b 22 20 74 68 65 6e 20 | 69 6d 70 6f 72 74 4f 6e |K" then |importOn|
|000057b0| 65 20 22 42 6f 6f 6b 22 | 0d 65 6c 73 65 20 69 66 |e "Book"|.else if|
|000057c0| 20 69 74 20 63 6f 6e 74 | 61 69 6e 73 20 22 41 52 | it cont|ains "AR|
|000057d0| 54 49 43 4c 45 22 20 74 | 68 65 6e 20 69 6d 70 6f |TICLE" t|hen impo|
|000057e0| 72 74 4f 6e 65 20 22 41 | 72 74 69 63 6c 65 22 0d |rtOne "A|rticle".|
|000057f0| 65 6c 73 65 20 69 66 20 | 69 74 20 63 6f 6e 74 61 |else if |it conta|
|00005800| 69 6e 73 20 22 49 4e 43 | 4f 4c 4c 45 43 54 49 4f |ins "INC|OLLECTIO|
|00005810| 4e 22 20 74 68 65 6e 20 | 69 6d 70 6f 72 74 4f 6e |N" then |importOn|
|00005820| 65 20 22 49 6e 43 6f 6c | 6c 65 63 74 69 6f 6e 22 |e "InCol|lection"|
|00005830| 0d 65 6c 73 65 20 69 66 | 20 69 74 20 63 6f 6e 74 |.else if| it cont|
|00005840| 61 69 6e 73 20 22 4d 41 | 53 54 45 52 53 54 48 45 |ains "MA|STERSTHE|
|00005850| 53 49 53 22 20 74 68 65 | 6e 20 69 6d 70 6f 72 74 |SIS" the|n import|
|00005860| 4f 6e 65 20 22 4d 61 73 | 74 65 72 73 54 68 65 73 |One "Mas|tersThes|
|00005870| 69 73 22 0d 65 6c 73 65 | 20 69 66 20 69 74 20 63 |is".else| if it c|
|00005880| 6f 6e 74 61 69 6e 73 20 | 22 50 48 44 54 48 45 53 |ontains |"PHDTHES|
|00005890| 49 53 22 20 74 68 65 6e | 20 69 6d 70 6f 72 74 4f |IS" then| importO|
|000058a0| 6e 65 20 22 50 68 44 54 | 68 65 73 69 73 22 0d 65 |ne "PhDT|hesis".e|
|000058b0| 6c 73 65 20 69 66 20 69 | 74 20 63 6f 6e 74 61 69 |lse if i|t contai|
|000058c0| 6e 73 20 22 4d 41 4e 55 | 41 4c 22 20 74 68 65 6e |ns "MANU|AL" then|
|000058d0| 20 69 6d 70 6f 72 74 4f | 6e 65 20 22 4d 61 6e 75 | importO|ne "Manu|
|000058e0| 61 6c 22 0d 65 6c 73 65 | 20 69 66 20 69 74 20 63 |al".else| if it c|
|000058f0| 6f 6e 74 61 69 6e 73 20 | 22 54 45 43 48 52 45 50 |ontains |"TECHREP|
|00005900| 4f 52 54 22 20 74 68 65 | 6e 20 69 6d 70 6f 72 74 |ORT" the|n import|
|00005910| 4f 6e 65 20 22 54 65 63 | 68 52 65 70 6f 72 74 22 |One "Tec|hReport"|
|00005920| 0d 65 6c 73 65 20 69 66 | 20 69 74 20 63 6f 6e 74 |.else if| it cont|
|00005930| 61 69 6e 73 20 22 55 4e | 50 55 42 4c 49 53 48 45 |ains "UN|PUBLISHE|
|00005940| 44 22 20 74 68 65 6e 20 | 69 6d 70 6f 72 74 4f 6e |D" then |importOn|
|00005950| 65 20 22 55 6e 70 75 62 | 6c 69 73 68 65 64 22 0d |e "Unpub|lished".|
|00005960| 65 6c 73 65 20 69 66 20 | 69 74 20 63 6f 6e 74 61 |else if |it conta|
|00005970| 69 6e 73 20 22 4d 49 53 | 43 22 20 74 68 65 6e 20 |ins "MIS|C" then |
|00005980| 69 6d 70 6f 72 74 4f 6e | 65 20 22 4d 69 73 63 22 |importOn|e "Misc"|
|00005990| 0d 65 6c 73 65 20 69 66 | 20 69 74 20 63 6f 6e 74 |.else if| it cont|
|000059a0| 61 69 6e 73 20 22 49 4e | 50 52 4f 43 45 45 44 49 |ains "IN|PROCEEDI|
|000059b0| 4e 47 53 22 20 74 68 65 | 6e 20 69 6d 70 6f 72 74 |NGS" the|n import|
|000059c0| 4f 6e 65 20 22 49 6e 50 | 72 6f 63 65 65 64 69 6e |One "InP|roceedin|
|000059d0| 67 73 22 0d 65 6c 73 65 | 20 69 66 20 69 74 20 63 |gs".else| if it c|
|000059e0| 6f 6e 74 61 69 6e 73 20 | 22 50 52 4f 43 45 45 44 |ontains |"PROCEED|
|000059f0| 49 4e 47 53 22 20 74 68 | 65 6e 20 69 6d 70 6f 72 |INGS" th|en impor|
|00005a00| 74 4f 6e 65 20 22 50 72 | 6f 63 65 65 64 69 6e 67 |tOne "Pr|oceeding|
|00005a10| 73 22 0d 65 6c 73 65 20 | 69 66 20 69 74 20 63 6f |s".else |if it co|
|00005a20| 6e 74 61 69 6e 73 20 22 | 53 54 52 49 4e 47 22 20 |ntains "|STRING" |
|00005a30| 74 68 65 6e 0d 69 66 20 | 69 6e 63 6c 75 64 65 41 |then.if |includeA|
|00005a40| 62 62 72 65 76 53 74 72 | 69 6e 67 73 20 69 73 20 |bbrevStr|ings is |
|00005a50| 65 6d 70 74 79 20 74 68 | 65 6e 0d 61 6e 73 77 65 |empty th|en.answe|
|00005a60| 72 20 22 49 6d 70 6f 72 | 74 20 61 62 62 72 65 76 |r "Impor|t abbrev|
|00005a70| 69 61 74 69 6f 6e 20 73 | 74 72 69 6e 67 73 3f 22 |iation s|trings?"|
|00005a80| 20 77 69 74 68 20 22 4e | 6f 22 20 6f 72 20 22 59 | with "N|o" or "Y|
|00005a90| 65 73 22 0d 69 66 20 69 | 74 20 69 73 20 22 4e 6f |es".if i|t is "No|
|00005aa0| 22 20 74 68 65 6e 20 70 | 75 74 20 66 61 6c 73 65 |" then p|ut false|
|00005ab0| 20 69 6e 74 6f 20 69 6e | 63 6c 75 64 65 41 62 62 | into in|cludeAbb|
|00005ac0| 72 65 76 53 74 72 69 6e | 67 73 0d 65 6c 73 65 20 |revStrin|gs.else |
|00005ad0| 70 75 74 20 74 72 75 65 | 20 69 6e 74 6f 20 69 6e |put true| into in|
|00005ae0| 63 6c 75 64 65 41 62 62 | 72 65 76 53 74 72 69 6e |cludeAbb|revStrin|
|00005af0| 67 73 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |gs.unloc|k screen|
|00005b00| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 73 65 74 |.lock sc|reen.set|
|00005b10| 20 63 75 72 73 6f 72 20 | 74 6f 20 77 61 74 63 68 | cursor |to watch|
|00005b20| 0d 65 6e 64 20 69 66 0d | 72 65 61 64 20 66 72 6f |.end if.|read fro|
|00005b30| 6d 20 66 69 6c 65 20 69 | 6d 70 6f 72 74 46 69 6c |m file i|mportFil|
|00005b40| 65 20 75 6e 74 69 6c 20 | 22 40 22 0d 69 66 20 69 |e until |"@".if i|
|00005b50| 6e 63 6c 75 64 65 41 62 | 62 72 65 76 53 74 72 69 |ncludeAb|brevStri|
|00005b60| 6e 67 73 20 69 73 20 74 | 72 75 65 20 74 68 65 6e |ngs is t|rue then|
|00005b70| 0d 70 75 74 20 69 74 20 | 69 6e 74 6f 20 74 68 65 |.put it |into the|
|00005b80| 45 6e 74 72 79 0d 69 6d | 70 6f 72 74 41 62 62 72 |Entry.im|portAbbr|
|00005b90| 65 76 53 74 72 69 6e 67 | 0d 65 6e 64 20 69 66 0d |evString|.end if.|
|00005ba0| 65 6c 73 65 20 72 65 61 | 64 20 66 72 6f 6d 20 66 |else rea|d from f|
|00005bb0| 69 6c 65 20 69 6d 70 6f | 72 74 46 69 6c 65 20 75 |ile impo|rtFile u|
|00005bc0| 6e 74 69 6c 20 22 40 22 | 20 2d 2d 20 75 6e 6b 6e |ntil "@"| -- unkn|
|00005bd0| 6f 77 6e 20 65 6e 74 72 | 79 20 74 79 70 65 0d 65 |own entr|y type.e|
|00005be0| 6e 64 20 72 65 70 65 61 | 74 0d 70 75 74 20 65 6d |nd repea|t.put em|
|00005bf0| 70 74 79 20 69 6e 74 6f | 20 74 68 65 45 6e 74 72 |pty into| theEntr|
|00005c00| 79 0d 63 6c 6f 73 65 57 | 69 6e 64 6f 77 73 20 22 |y.closeW|indows "|
|00005c10| 50 72 6f 6d 70 74 6f 69 | 64 22 0d 69 66 20 66 69 |Promptoi|d".if fi|
|00005c20| 6c 65 49 73 4f 70 65 6e | 28 69 6d 70 6f 72 74 46 |leIsOpen|(importF|
|00005c30| 69 6c 65 29 20 69 73 20 | 74 72 75 65 20 74 68 65 |ile) is |true the|
|00005c40| 6e 20 63 6c 6f 73 65 20 | 66 69 6c 65 20 69 6d 70 |n close |file imp|
|00005c50| 6f 72 74 46 69 6c 65 0d | 70 75 74 20 73 61 76 65 |ortFile.|put save|
|00005c60| 56 65 72 69 66 79 46 6c | 61 67 20 69 6e 74 6f 20 |VerifyFl|ag into |
|00005c70| 56 65 72 69 66 79 46 6c | 61 67 0d 70 75 74 20 22 |VerifyFl|ag.put "|
|00005c80| 22 20 69 6e 74 6f 20 6d | 73 67 0d 68 69 64 65 20 |" into m|sg.hide |
|00005c90| 6d 73 67 0d 67 6f 20 66 | 69 72 73 74 0d 64 6f 4c |msg.go f|irst.doL|
|00005ca0| 6f 63 6b 20 66 61 6c 73 | 65 0d 73 65 6e 64 20 6f |ock fals|e.send o|
|00005cb0| 70 65 6e 42 61 63 6b 67 | 72 6f 75 6e 64 20 74 6f |penBackg|round to|
|00005cc0| 20 74 68 69 73 20 62 67 | 0d 73 65 6e 64 20 6f 70 | this bg|.send op|
|00005cd0| 65 6e 43 61 72 64 20 74 | 6f 20 74 68 69 73 20 62 |enCard t|o this b|
|00005ce0| 67 0d 69 66 20 69 6e 63 | 6c 75 64 65 41 62 62 72 |g.if inc|ludeAbbr|
|00005cf0| 65 76 53 74 72 69 6e 67 | 73 20 69 73 20 74 72 75 |evString|s is tru|
|00005d00| 65 20 74 68 65 6e 20 61 | 6e 73 77 65 72 20 22 41 |e then a|nswer "A|
|00005d10| 6c 6c 20 69 6d 70 6f 72 | 74 65 64 20 61 62 62 72 |ll impor|ted abbr|
|00005d20| 65 76 69 61 74 69 6f 6e | 22 c2 0d 26 26 22 73 74 |eviation|"..&&"st|
|00005d30| 72 69 6e 67 73 20 68 61 | 76 65 20 62 65 65 6e 20 |rings ha|ve been |
|00005d40| 70 6c 61 63 65 64 20 69 | 6e 20 74 68 65 20 41 75 |placed i|n the Au|
|00005d50| 74 68 6f 72 73 20 61 75 | 74 68 6f 72 69 74 79 20 |thors au|thority |
|00005d60| 6c 69 73 74 2e 22 0d 61 | 6c 6c 6f 77 49 6e 74 65 |list.".a|llowInte|
|00005d70| 72 72 75 70 74 69 6f 6e | 0d 73 65 6e 64 20 22 73 |rruption|.send "s|
|00005d80| 6f 72 74 43 61 72 64 73 | 20 74 72 75 65 22 20 74 |ortCards| true" t|
|00005d90| 6f 20 62 67 20 22 48 42 | 20 55 74 69 6c 69 74 79 |o bg "HB| Utility|
|00005da0| 20 43 61 72 64 73 22 0d | 65 6e 64 20 69 6d 70 6f | Cards".|end impo|
|00005db0| 72 74 45 6e 74 72 69 65 | 73 0d 0d 6f 6e 20 69 6d |rtEntrie|s..on im|
|00005dc0| 70 6f 72 74 4f 6e 65 20 | 74 79 70 65 0d 67 6c 6f |portOne |type.glo|
|00005dd0| 62 61 6c 20 69 6d 70 6f | 72 74 46 69 6c 65 2c 74 |bal impo|rtFile,t|
|00005de0| 68 65 45 6e 74 72 79 0d | 72 65 61 64 20 66 72 6f |heEntry.|read fro|
|00005df0| 6d 20 66 69 6c 65 20 69 | 6d 70 6f 72 74 46 69 6c |m file i|mportFil|
|00005e00| 65 20 75 6e 74 69 6c 20 | 22 40 22 20 2d 2d 73 74 |e until |"@" --st|
|00005e10| 61 72 74 20 6f 66 20 6e | 65 78 74 20 65 6e 74 72 |art of n|ext entr|
|00005e20| 79 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 74 68 |y.put it| into th|
|00005e30| 65 45 6e 74 72 79 0d 64 | 6f 20 6e 65 77 42 69 62 |eEntry.d|o newBib|
|00005e40| 43 61 72 64 20 74 79 70 | 65 2c 74 72 75 65 0d 69 |Card typ|e,true.i|
|00005e50| 6d 70 6f 72 74 45 6e 74 | 72 79 20 2d 2d 69 6e 20 |mportEnt|ry --in |
|00005e60| 62 67 20 73 63 72 69 70 | 74 73 0d 65 6e 64 20 69 |bg scrip|ts.end i|
|00005e70| 6d 70 6f 72 74 4f 6e 65 | 0d 0d 66 75 6e 63 74 69 |mportOne|..functi|
|00005e80| 6f 6e 20 69 6d 70 6f 72 | 74 4b 65 79 0d 67 6c 6f |on impor|tKey.glo|
|00005e90| 62 61 6c 20 74 68 65 45 | 6e 74 72 79 0d 70 75 74 |bal theE|ntry.put|
|00005ea0| 20 73 70 61 63 65 26 74 | 61 62 26 72 65 74 75 72 | space&t|ab&retur|
|00005eb0| 6e 20 69 6e 74 6f 20 77 | 68 69 74 65 73 70 61 63 |n into w|hitespac|
|00005ec0| 65 0d 70 75 74 20 31 20 | 69 6e 74 6f 20 78 0d 70 |e.put 1 |into x.p|
|00005ed0| 75 74 20 63 68 61 72 20 | 78 20 6f 66 20 74 68 65 |ut char |x of the|
|00005ee0| 45 6e 74 72 79 20 69 6e | 74 6f 20 74 68 65 43 68 |Entry in|to theCh|
|00005ef0| 61 72 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |ar.put e|mpty int|
|00005f00| 6f 20 74 68 65 4b 65 79 | 0d 72 65 70 65 61 74 20 |o theKey|.repeat |
|00005f10| 75 6e 74 69 6c 20 74 68 | 65 43 68 61 72 20 69 73 |until th|eChar is|
|00005f20| 20 6e 6f 74 20 69 6e 20 | 77 68 69 74 65 73 70 61 | not in |whitespa|
|00005f30| 63 65 0d 61 64 64 20 31 | 20 74 6f 20 78 0d 70 75 |ce.add 1| to x.pu|
|00005f40| 74 20 63 68 61 72 20 78 | 20 6f 66 20 74 68 65 45 |t char x| of theE|
|00005f50| 6e 74 72 79 20 69 6e 74 | 6f 20 74 68 65 43 68 61 |ntry int|o theCha|
|00005f60| 72 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 70 75 74 |r.end re|peat.put|
|00005f70| 20 63 68 61 72 20 78 20 | 74 6f 20 6f 66 66 73 65 | char x |to offse|
|00005f80| 74 28 22 2c 22 2c 74 68 | 65 45 6e 74 72 79 29 20 |t(",",th|eEntry) |
|00005f90| 6f 66 20 74 68 65 45 6e | 74 72 79 20 69 6e 74 6f |of theEn|try into|
|00005fa0| 20 74 68 65 4b 65 79 0d | 64 65 6c 65 74 65 20 6c | theKey.|delete l|
|00005fb0| 61 73 74 20 63 68 61 72 | 20 6f 66 20 74 68 65 4b |ast char| of theK|
|00005fc0| 65 79 20 20 2d 2d 74 72 | 61 69 6c 69 6e 67 20 63 |ey  --tr|ailing c|
|00005fd0| 6f 6d 6d 61 0d 72 65 74 | 75 72 6e 20 74 68 65 4b |omma.ret|urn theK|
|00005fe0| 65 79 0d 65 6e 64 20 69 | 6d 70 6f 72 74 4b 65 79 |ey.end i|mportKey|
|00005ff0| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 69 6d 70 6f 72 |..functi|on impor|
|00006000| 74 4b 65 79 46 69 65 6c | 64 0d 70 75 74 20 69 6d |tKeyFiel|d.put im|
|00006010| 70 6f 72 74 46 69 65 6c | 64 28 22 4b 65 79 22 29 |portFiel|d("Key")|
|00006020| 20 69 6e 74 6f 20 69 74 | 0d 69 66 20 69 74 20 69 | into it|.if it i|
|00006030| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then|
|00006040| 20 72 65 74 75 72 6e 20 | 22 21 22 26 69 74 0d 65 | return |"!"&it.e|
|00006050| 6c 73 65 20 72 65 74 75 | 72 6e 20 65 6d 70 74 79 |lse retu|rn empty|
|00006060| 0d 65 6e 64 20 69 6d 70 | 6f 72 74 4b 65 79 46 69 |.end imp|ortKeyFi|
|00006070| 65 6c 64 0d 0d 66 75 6e | 63 74 69 6f 6e 20 69 6d |eld..fun|ction im|
|00006080| 70 6f 72 74 46 69 65 6c | 64 20 66 6c 64 4e 61 6d |portFiel|d fldNam|
|00006090| 65 0d 67 6c 6f 62 61 6c | 20 74 68 65 45 6e 74 72 |e.global| theEntr|
|000060a0| 79 2c 6d 79 4f 70 65 6e | 44 65 6c 69 6d 2c 6d 79 |y,myOpen|Delim,my|
|000060b0| 43 6c 6f 73 65 44 65 6c | 69 6d 0d 70 75 74 20 73 |CloseDel|im.put s|
|000060c0| 70 61 63 65 26 74 61 62 | 26 72 65 74 75 72 6e 20 |pace&tab|&return |
|000060d0| 69 6e 74 6f 20 77 68 69 | 74 65 73 70 61 63 65 0d |into whi|tespace.|
|000060e0| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 78 |put empt|y into x|
|000060f0| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 78 6f 66 66 |.put 1 i|nto xoff|
|00006100| 73 65 74 0d 72 65 70 65 | 61 74 0d 66 69 6e 64 49 |set.repe|at.findI|
|00006110| 6e 20 74 68 65 45 6e 74 | 72 79 2c 66 6c 64 4e 61 |n theEnt|ry,fldNa|
|00006120| 6d 65 2c 78 6f 66 66 73 | 65 74 2c 66 61 6c 73 65 |me,xoffs|et,false|
|00006130| 0d 69 66 20 74 68 65 20 | 72 65 73 75 6c 74 20 69 |.if the |result i|
|00006140| 73 20 22 30 2c 30 2c 30 | 2c 30 2c 30 22 20 74 68 |s "0,0,0|,0,0" th|
|00006150| 65 6e 20 72 65 74 75 72 | 6e 20 65 6d 70 74 79 20 |en retur|n empty |
|00006160| 2d 2d 66 69 65 6c 64 20 | 6e 6f 74 20 66 6f 75 6e |--field |not foun|
|00006170| 64 0d 69 66 20 63 68 61 | 72 20 28 66 6f 75 72 74 |d.if cha|r (fourt|
|00006180| 68 20 69 74 65 6d 20 6f | 66 20 74 68 65 20 72 65 |h item o|f the re|
|00006190| 73 75 6c 74 20 2d 20 31 | 29 20 6f 66 20 74 68 65 |sult - 1|) of the|
|000061a0| 45 6e 74 72 79 20 69 73 | 20 6e 6f 74 20 69 6e 20 |Entry is| not in |
|000061b0| 77 68 69 74 65 73 70 61 | 63 65 20 74 68 65 6e 0d |whitespa|ce then.|
|000061c0| 70 75 74 20 66 69 66 74 | 68 20 69 74 65 6d 20 6f |put fift|h item o|
|000061d0| 66 20 74 68 65 20 72 65 | 73 75 6c 74 20 69 6e 74 |f the re|sult int|
|000061e0| 6f 20 78 6f 66 66 73 65 | 74 0d 6e 65 78 74 20 72 |o xoffse|t.next r|
|000061f0| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 70 75 74 |epeat.en|d if.put|
|00006200| 20 66 69 66 74 68 20 69 | 74 65 6d 20 6f 66 20 74 | fifth i|tem of t|
|00006210| 68 65 20 72 65 73 75 6c | 74 20 2b 20 31 20 69 6e |he resul|t + 1 in|
|00006220| 74 6f 20 78 0d 70 75 74 | 20 63 68 61 72 20 78 20 |to x.put| char x |
|00006230| 6f 66 20 74 68 65 45 6e | 74 72 79 20 69 6e 74 6f |of theEn|try into|
|00006240| 20 74 68 65 43 68 61 72 | 0d 72 65 70 65 61 74 20 | theChar|.repeat |
|00006250| 75 6e 74 69 6c 20 74 68 | 65 43 68 61 72 20 69 73 |until th|eChar is|
|00006260| 20 6e 6f 74 20 69 6e 20 | 77 68 69 74 65 73 70 61 | not in |whitespa|
|00006270| 63 65 0d 61 64 64 20 31 | 20 74 6f 20 78 0d 70 75 |ce.add 1| to x.pu|
|00006280| 74 20 63 68 61 72 20 78 | 20 6f 66 20 74 68 65 45 |t char x| of theE|
|00006290| 6e 74 72 79 20 69 6e 74 | 6f 20 74 68 65 43 68 61 |ntry int|o theCha|
|000062a0| 72 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 69 66 20 |r.end re|peat.if |
|000062b0| 74 68 65 43 68 61 72 20 | 69 73 20 22 3d 22 20 74 |theChar |is "=" t|
|000062c0| 68 65 6e 20 65 78 69 74 | 20 72 65 70 65 61 74 0d |hen exit| repeat.|
|000062d0| 65 6c 73 65 20 70 75 74 | 20 78 20 69 6e 74 6f 20 |else put| x into |
|000062e0| 78 6f 66 66 73 65 74 0d | 65 6e 64 20 72 65 70 65 |xoffset.|end repe|
|000062f0| 61 74 0d 61 64 64 20 31 | 20 74 6f 20 78 0d 70 75 |at.add 1| to x.pu|
|00006300| 74 20 63 68 61 72 20 78 | 20 6f 66 20 74 68 65 45 |t char x| of theE|
|00006310| 6e 74 72 79 20 69 6e 74 | 6f 20 74 68 65 43 68 61 |ntry int|o theCha|
|00006320| 72 0d 72 65 70 65 61 74 | 20 75 6e 74 69 6c 20 74 |r.repeat| until t|
|00006330| 68 65 43 68 61 72 20 69 | 73 20 6e 6f 74 20 69 6e |heChar i|s not in|
|00006340| 20 77 68 69 74 65 73 70 | 61 63 65 0d 61 64 64 20 | whitesp|ace.add |
|00006350| 31 20 74 6f 20 78 0d 70 | 75 74 20 63 68 61 72 20 |1 to x.p|ut char |
|00006360| 78 20 6f 66 20 74 68 65 | 45 6e 74 72 79 20 69 6e |x of the|Entry in|
|00006370| 74 6f 20 74 68 65 43 68 | 61 72 0d 65 6e 64 20 72 |to theCh|ar.end r|
|00006380| 65 70 65 61 74 0d 69 66 | 20 74 68 65 43 68 61 72 |epeat.if| theChar|
|00006390| 20 69 73 20 69 6e 20 22 | 2c 7d 22 20 74 68 65 6e | is in "|,}" then|
|000063a0| 20 72 65 74 75 72 6e 20 | 65 6d 70 74 79 20 20 2d | return |empty  -|
|000063b0| 2d 65 6d 70 74 79 20 66 | 69 65 6c 64 0d 69 66 20 |-empty f|ield.if |
|000063c0| 74 68 65 43 68 61 72 20 | 69 73 20 71 75 6f 74 65 |theChar |is quote|
|000063d0| 20 74 68 65 6e 20 20 2d | 2d 66 69 65 6c 64 20 64 | then  -|-field d|
|000063e0| 65 6c 69 6d 69 74 65 72 | 73 20 61 72 65 20 22 22 |elimiter|s are ""|
|000063f0| 0d 70 75 74 20 71 75 6f | 74 65 20 69 6e 74 6f 20 |.put quo|te into |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.